Zeitstempel fixieren vorhandenem vba code

1 Antworten zur Frage

~ einfachsten eine Abfrage vorschalten, ob die Zelle, in die der Zeitstempel geschrieben wird, leer ist: Private Sub Worksheet_Change Dim RaBereich ~Hallo ich habe in einer Tabelle ein vba Code der automatisch einen.
Bewertung: 2 von 10 mit 12 Stimmen

Videos zum Thema
Video

Zeitstempel fixieren in vorhandenem vba Code?

Hallo ich habe in einer Tabelle ein vba Code der automatisch einen Zeitstempel setzt. Nur soll dieser bei einer erneuten Eingabe in dieser Zeile nicht mehr verändert werden. Ich hoffe das es da eine Lösung gibt. Hier mal die existierende Programmierung.
Private Sub Worksheet_Change 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 drei Zellen links davon Datum und Uhrzeit eintragen If Not Intersect Is Nothing Then Target.Offset = Format(Now, "dd.mm.yyyy - hh:mm:ss") End If Application.EnableEvents = True Set RaBereich = Nothing End Sub
Wäre echt Dankbar für Hilfe
am einfachsten eine Abfrage vorschalten, ob die Zelle, in die der Zeitstempel geschrieben wird, leer ist:
Private Sub Worksheet_Change
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 = "" Then
If Not Intersect Is Nothing Then
    Target.Offset = Format(Now, "dd.mm.yyyy - hh:mm:ss")
End If
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub