Hallo zusammen
Ich möchte gerne in Excel ein automatisches Ersterfassungsdatum" einfügen, welches dann aber bei Änderungen nicht mehr überschrieben wird. Ich habe verschiedenes versucht. Aktuell bin ich mit meinem Anfängerwissen am Ende:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBJ As Range
Set rngBJ = Range("B:J") 'Rangebereich der ausgewertet werden soll!
If Intersect(Target, rngBJ) Is Nothing Then Exit Sub
If Not IsEmpty(Target) Then
'MsgBox "I'm not empty!"
Exit Sub
End If
If IsEmpty(Target) Then
Cells(Target.Row, 1) = Date ' Datum in Spalte A
End If
End Sub
Das Problem ist nämlich, wenn ich eine Zelle im Range ändere, wird das Datum nicht überschrieben (= gut so), wenn ich aber den Inhalt einer Zelle im Range lösche, wird das Datum in der Spalte A angepasst.
Könnt Ihr mir helfen?
Danke & Gruss
Peter
|