Supportnet / Forum / Tabellenkalkulation
Datum automatisch in Excel
Frage
Eine Frage: Mit welcher Funktion kann ich in einer Spalte autmotisch das Datum des heutigen Tages vergeben,wenn ich in der anderen einen Wert X eingebe? Wichtiger Zusatz: Das Datum der vorangegangenen Tage bzw. Einträge darf sich nicht mit ändern?
Antwort 1 von piano
Hi
Mir fällt dazu nur eine VBA-Prozedur ein:
im Modul von "Diese Arbeitsmappe" mit Workbook / SheetChange kann abgefragt werden ob die aktuelle Zelle in "Tabelle1" auf den Wert "X" (Achtung: Case-sensitiv!) geändert wurde:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Tabelle1" Then
If Target.Value = "X" Then
Target.Offset(0, 1).Value = Now()
End If
End If
End Sub
Die Prozedur setzt in die Zelle rechts neben der Eingabe das heutige Datum ein. Hier Zelle entsprechend formatieren.
Mir fällt dazu nur eine VBA-Prozedur ein:
im Modul von "Diese Arbeitsmappe" mit Workbook / SheetChange kann abgefragt werden ob die aktuelle Zelle in "Tabelle1" auf den Wert "X" (Achtung: Case-sensitiv!) geändert wurde:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Tabelle1" Then
If Target.Value = "X" Then
Target.Offset(0, 1).Value = Now()
End If
End If
End Sub
Die Prozedur setzt in die Zelle rechts neben der Eingabe das heutige Datum ein. Hier Zelle entsprechend formatieren.
Antwort 2 von coros
Hi @besign2,
vielleicht könntest Du ja bei Deinem nächsten Posting mal ein Hallo am Anfang und einen Gruß am Ende des Beitrages verwenden. Dann sieht Dein beitrag gleich viel netter aus.
Jetzt zu Deiner Frage. Ich hätte da folgende Anweisung anzubieten, die in das VBA-Projekt Deiner Tabelle kopiert werden müsste.
In dieser Anweisung wird bei Eingabe eines X im Bereich A1:C500, in der Spalte B in der selben Zeile, in der der Buchstabe eingegeben wurde, das Datum eingetragen. Den Bereich kannst Du änderrn, in dem Du in der Zeile
If Intersect(Target, Range("A1:C500")) Is Nothing Then
die Bereichsdaten abänderst. Der Buchstabe oder der Text, bei deren Eingabe das Datum erscheinen soll, wird in der Zeile
If Target.Value = "X" Then Cells(Target.Row, 2) = Now
eingetragen. Dort das X gegen den Buchstaben oder Text tauschen. Dort wird auch die Spalte festgelegt, in der das Datum erscheinen soll. Wenn das Datum in einer anderen Spalte als B eingetragen werden soll, muss die Zahl hinter Target.Row, abgeändert werden. Die Zahl 1 sagt Spalte A aus, die 2 die Spalte B, die 3 die Spalte C usw.
Ich hoffe, ich konnte Dir weiterhelfen. Bei weiteren Fragen hier noch mal melden,
coros
Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar
vielleicht könntest Du ja bei Deinem nächsten Posting mal ein Hallo am Anfang und einen Gruß am Ende des Beitrages verwenden. Dann sieht Dein beitrag gleich viel netter aus.
Jetzt zu Deiner Frage. Ich hätte da folgende Anweisung anzubieten, die in das VBA-Projekt Deiner Tabelle kopiert werden müsste.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:C500")) Is Nothing Then
Else
If Target.Value = "X" Then Cells(Target.Row, 2) = Now
End If
End Sub
In dieser Anweisung wird bei Eingabe eines X im Bereich A1:C500, in der Spalte B in der selben Zeile, in der der Buchstabe eingegeben wurde, das Datum eingetragen. Den Bereich kannst Du änderrn, in dem Du in der Zeile
If Intersect(Target, Range("A1:C500")) Is Nothing Then
die Bereichsdaten abänderst. Der Buchstabe oder der Text, bei deren Eingabe das Datum erscheinen soll, wird in der Zeile
If Target.Value = "X" Then Cells(Target.Row, 2) = Now
eingetragen. Dort das X gegen den Buchstaben oder Text tauschen. Dort wird auch die Spalte festgelegt, in der das Datum erscheinen soll. Wenn das Datum in einer anderen Spalte als B eingetragen werden soll, muss die Zahl hinter Target.Row, abgeändert werden. Die Zahl 1 sagt Spalte A aus, die 2 die Spalte B, die 3 die Spalte C usw.
Ich hoffe, ich konnte Dir weiterhelfen. Bei weiteren Fragen hier noch mal melden,
coros
Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar
Antwort 3 von besign2
Hallo coros, hallo piano,
sorry wenn ich etwas unhöflich war; ist sonst überhaupt nicht meine Art. Zum Problem:
Ich bin ganz ehrlich, auch wenn meine Anwenderkenntnisse bezüglich Office nicht gerade ganz schlecht sind, so habe ich doch mit Excel und VBA noch gar nichts gemacht. Könnt ihr mir nicht mal freundlicherweise das fertiges Excelsheet zur Problematik an meine obige Mailadresse senden.
Sind der Übung ist, das in einer schon exisiterenden Tabelle in der einen Spalte einer Tabelle immer das Datum des aktuellen Tages erscheint, wenn in der Spalte/Feld daneben ein Eintrag (Wert beliebig) vorgenommen wird.
Schönes Wochenende Euch!
sorry wenn ich etwas unhöflich war; ist sonst überhaupt nicht meine Art. Zum Problem:
Ich bin ganz ehrlich, auch wenn meine Anwenderkenntnisse bezüglich Office nicht gerade ganz schlecht sind, so habe ich doch mit Excel und VBA noch gar nichts gemacht. Könnt ihr mir nicht mal freundlicherweise das fertiges Excelsheet zur Problematik an meine obige Mailadresse senden.
Sind der Übung ist, das in einer schon exisiterenden Tabelle in der einen Spalte einer Tabelle immer das Datum des aktuellen Tages erscheint, wenn in der Spalte/Feld daneben ein Eintrag (Wert beliebig) vorgenommen wird.
Schönes Wochenende Euch!
Antwort 4 von coros
Hi @besign2,
die Beispieldatei habe ich Dir zugesandt.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
die Beispieldatei habe ich Dir zugesandt.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.