Zeitstempel fixieren in vorhandenem vba Code?

1 Antwort

am einfachsten eine Abfrage vorschalten, ob die Zelle, in die der Zeitstempel geschrieben wird, leer ist:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range ' abbrechen, wenn erste Zeile oder mehr als eine Zelle aktiv
If Target.Row < 2 Or Target.Count > 1 Then Exit Sub
'für Änderungen in D4 bis D15. Ggf anpassen
Set RaBereich = Range("D4:D15")
Application.EnableEvents = False
'bei Änderung dreiZellen links davon Datum und Uhrzeit eintragen
If Target.Offset(0, -3) = "" Then
If Not Intersect(Target, RaBereich) Is Nothing Then
    Target.Offset(0, -3) = Format(Now, "dd.mm.yyyy - hh:mm:ss")
End If
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Das ist genau das was ich gesucht habe Danke

0

Was möchtest Du wissen?