Kann man ein Datum mit einer Eingabe auf mehreren Sheets in einer Excel Datei anzeigen?

Hallo zusammen,

ich würde gerne eine Exceltabelle erstellen bei der auf der ersten Seite ein Datum eingegeben werden soll, welches darauffolgend auch in anderen Sheets in bestimmten Zellen angezeigt werden soll (Um die mehrmalige Eingabe sich sparen zu können) Ist hier die IF Funktion der richtige Weg? Wenn ja wie ist der effizienteste weg dafür??

Danke vorab schonmal.

4 Antworten

Waldi2007

15.11.2021, 10:16

Arbeite mit Verweisen auf Zellen in anderen Sheets, wie z.B. =Blattname!A1

Von Experte mchawk777 bestätigt

TechPech1984

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Computer

15.11.2021, 10:21

Du kannst deiner Zelle einen Bereichnamen geben , den überall Verwenden oder halt direkt auf dein Tabellenblatt und Zelle bezug nehmen .

Beispiel Bezug : =Tabelle1!C3

Beispiel Bereichsnamen Vergeben

https://praxistipps.chip.de/excel-namen-fuer-zellen-und-zellbereiche-vergeben_44893

tommy1T

15.11.2021, 11:11

du kannst in beispielsweise tabelle 2 ein = (istgleich) schreiben und dann zu einer anderen tabelle wechseln und dort eine zelle klicken, dann füllt es dir den bezug automatisch aus. Oder manuell mit "Tabellennamen!Zelle" ausfüllen

Tabelle1:

Bild zum Beitrag

Tabelle2:

Bild zum Beitrag

Khazi

15.11.2021, 10:17

Eigentlich musst du nur auf allen anderen Seiten Bezug nehmen auf das erste Tabellemblatt und die dortige Zelle.

Hallo,

ich möchte bei Eingabe in die Zelle B1 bei A1 das aktuelle Datum ausgespuckt haben. Sprich wenn Zelle B1 leer ist, ist Zelle A1 auch leer. Dies würde mitrbei Eingaben in die Tabelle das eingeben des Datums die Zeit ersparen.

Bitte um Hilfe

Danke im Voraus

...zur Frage

Excel: Erinnerung wenn Datum abgelaufen?

Hallo zusammen,

und zwar möchte ich in meiner Excel-Tabelle erinnert werden (durch farbliche Markierung oder Pop-Up), wenn das eingegebene Datum in einer Zelle länger als 30 Tage (vom heutigen Datum) her ist.

Danke im Voraus!

...zur Frage

Excel VBA - Zelle auswählen, dann F2

Hallo erneut Excel-Freunde,

mein Titel verrät es bereits. Eine Zelle soll markiert werden, daraufhin soll "F2" und dann "Enter" gedrückt werden.

Mein Makro sieht bisher so aus:

'Ans Ende der Tabelle springen

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

' Eingabeaufforderung 1 Datum

Eingabe = InputBox("Bitte Datum angeben, wann die Ware eingetroffen ist!" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "Bitte schreiben Sie in: tt:mm:jjjj" & Chr(13) & Chr(10) & _ "" & _ "", _ "Zugang [Datum]", ActiveSheet.Range("B1") _ & "_", 7000, 5000)

If StrPtr(Eingabe) = 0 Then ' MsgBox ("Die Schaltfläche Abbrechen wurde gewählt. Der Vorgang wird abgebrochen.") End Else

End If

ActiveCell.Offset(0, 0).Value = Eingabe

Wie man sieht, sucht er sich selbst die letzte Zelle in meiner Tabelle um dort mit einer Eingabeaufforderung das Datum anzugeben.

Nun möchte ich als nächsten Schritt, genau diese Zelle, wo man eben das Datum eingegeben hat mittels dem Makro da oben, ... das er diese Zelle auswählt, "F2" und dann "Enter" drückt.

Alle Versuche dies zu bewerkstelligen, schlugen bisher fehl.

Habt ihr eine Idee?

Viele Grüße,

David :) ... Pixelschubster :D

...zur Frage

Excel 2010 min und max bei Datum wenn zelle leer Datum 1900

Hallo

Ich habe ein execl sheet und das soll er aus einer Spalte mithilfe des min und max wertes einmal des größte und einmal das kleinste datum rausziehen

Klappt auch ganz gut, nur wenn nichts in der Zelle steht nimmt er einfach das Datum

00.01.1900 bis dem max und min feld

Wie kann ich das verhindern

grüße fireskyer

...zur Frage

EXCEL Tabellenblatt fixieren?

Ich habe in EXCEL 2007 eine Arbeitsmappe mit ca 20 Tabellenblättern und ein Tabellenblatt ("Inhaltsverzeichnis")das ich stets "griffbereit" haben möchte, es soll also fixiert sein, auch wenn ich auf die Tabellenblätter weiter rechts klicke.

der VBA Code

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    If Sheets(Sh.Index - 1).name <> "Tabelle1" 


        Sheets("Tabelle1").Move Before:=Sheets(Sh.Index)

        Sheets(Sh.Index).Activate

    Else

        Sheets(Sh.Index).Activate

    End If

End Sub

den ich bei der Recherche fand hat nichts gebracht. Was tun?

...zur Frage

Excel Formel gesucht für autom. Datum erstellen wenn Eingabe in benachbarte Zelle gemacht wird.

Hallo Zusammen, ich hoffe ihr könnt mir helfen. Ich möchte in einer Zelle das aktuelle Datum automatisch eingefügt haben wenn in der Nachbarzelle eine Zahl (Wareneingang, ist also immer eine andere) eingegeben wird. Geht das überhaupt? Mit der Wenn-Funktion habe ich es schon versucht aber nicht hinbekommen. Vielen Dank schon mal. LG Kathleen

...zur Frage

Excel ändert Formatierung in Zelle in Datumsformat bei Zahl mit Punkt - wie ist das vermeidbar

Excel ändert die Formatierung einer Zelle bei Eingabe einer Zahl mit Punkt in ein Benutzerdefiniertes Datum TT:MMM Kann man das verhindern? Zelle sollte Standardformatierung behalten! Vielen Dank!

...zur Frage

Wie kann ich in Google Sheets eine Formel nach Übertragung des Ergebnisses automatisch löschen lassen?

Hallo Leute, ich lese eine Zelle aus (Datum) und lasse über eine IF Abfrage dieses Datum in eine andere Zelle schreiben. Immer dann, wenn der Inhalt einer weiteren Zelle auf "Erledigt" steht.

Nun ist mein Problem, dass die Zelle, in der die IF Abfrage steht, dort natürlich jeden Tag das Datum wechselt, da sich der Inhalt der Datumszelle ja täglich ändert (Funktion TODAY).

Gibt es eine Möglichkeit, dass die IF Abfrage nach dem ersten Einlesen quasi automatisch gelöscht werden kann?

...zur Frage

Excel VBA: Text aus Inputbox in Zelle ergänzen (nicht überschreiben)

Hallo ihr Lieben Excel-Profis,

ich hab ein kleines Excel-File, welches ich täglich öffne und wo ich zum aktuellen Datum einen Eintrag mache). Das passiert über eine Inputbox. Wenn ich aber das Excel ein zweites Mal öffne und einen neuen Text eingeben, dann überschreibt es mir den alten Text. Ich würde jetzt gerne mein Makro so umbauen, dass ich den Text in die Zelle dazuschreibe. Sub eintragen()

Dim x As Range Dim symptom As String

symptom = InputBox("heutige Symptome:", "In Spalte D", "") If symptom = "" Then Exit Sub With Sheets("Kalender") Set x = .Range("D:D").Find(Date) If x Is Nothing Then MsgBox "Der " & Date & " wurde nicht gefunden!" Else .Cells(x.Row, 6) = symptom End If End With End Sub

Bitte um Unterstützung!

Danke! :-)

...zur Frage

Excel VBA - Zellen nach Datum löschen?

Hallo Liebe Excel - Kenner,

gibt es die Möglichkeit oder einen Code, wo ich Zellen löschen die ich nach Datum und Uhrzeit bestimme?

Bsp: Zelle A1: K30 löschen am 25.03.2016 - 14:00 Uhr

Gruß Manuel

...zur Frage

Problem mit VBA Excel: Wert Finden und Zeilen daneben ersetzen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zur Frage

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zur Frage

Wie kann ich Excel-Zellen für Word auslesen?

Ich muss den Inhalt einer speziellen Zelle in einem Excel-Sheet als String auslesen und in einem Word-Dokument einfügen. Das ganze soll per VBA funktionieren. Dabei sollte die Excel-Datei bestenfalls geschlossen bleiben. Kann jemand helfen? Nutze MS-Office 2013.

...zur Frage

Excel bedingte Formatierung?

Hallo,

leider komme ich bei meiner Excel-Tabelle nicht weiter und hoffe daher auf eure Hilfe.

In Zelle E2 soll manuell ein Datum eingetragen werden - dieses ist variabel.

In Zelle F2 soll das Datum ein Jahr später automatisch eingegeben werden, wenn E2 befüllt wird. Hier habe ich "=E2+365" als Formel eingegeben.

Das funktioniert soweit auch, nur dass Excel in der Zelle F2 automatisch 30.12.1900 einträgt, obwohl in E2 nichts steht.

Jetzt soll F2 aber rot befüllt werden, wenn das Datum in E2 ein Jahr überschreitet. Meines Verständnisses nach also =E2+366, aber das funktioniert leider nicht.

Deshalb bin ich hier und hoffe auf eure Hilfe.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen