Datum-Zeit setzen
24.02.2022 19:29:05
Albert
ich ersuche um Hilfe bei folgendem Problem:
Das untenstehende Makro setzt in einem Feld das Erstellungsdatum und wenn da schon was steht in einem anderen Feld das Änderungsdatum.
Das funktioniert auch perfekt so lange ich manuell in den Feldern für den "Bereich_ZeitstempelAuslösen" was eingebe oder ändere.
Wenn aber in den Feldern für den "Bereich_ZeitstempelAuslösen" durch ein Makro was hineingeschrieben wird, dann wird der Zeitstempel leider nicht gesetzt.
Gibt es dafür eine Lösung?
Wenn ja, wie müsste ich den untenstehenden Code ändern, damit es auch funktioniert wenn die Werte durch ein Makro geändert werden?
Bitte um Unterstützung.
Danke!
MfG
'Zeitstempel für Erstellungsdatum und Änderungsdatum
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim lRow As Long
On Error Goto errExit
'Wenn in Spalten lt Namensmanager "Bereich_ZeitstempelAuslösen" nichts steht dann
If Not Intersect(Target, Me.Range("Bereich_ZeitstempelAuslösen")) Is Nothing Then
'Anwendungsaktivierungsereignisse
Application.EnableEvents = False
'Wenn in Spalten lt Namensmanager "Bereich_ZeitstempelAuslösen" in Zellen was geschrieben wird dann
For Each c In Intersect(Target, Me.Range("Bereich_ZeitstempelAuslösen"))
If Not IsEmpty(c) Then
'wenn in Zelle lt Namensmanager "Erstellungsdatum" noch kein Datum steht dann Erstellungsdatum in Spalte AK eintragen
If IsEmpty(Cells(c.Row, Range("Erstellungsdatum").Column)) Then Cells(c.Row, Range("Erstellungsdatum").Column).Value = Now
'wenn in Zelle lt Namensmanager "Änderungsdatum" schon ein Datum steht dann Änderungsdatum in Spalte AL eintragen
Cells(c.Row, Range("Änderungsdatum").Column).Value = Now
End If
Next c
End If
errExit:
Application.EnableEvents = True
End Sub
Anzeige