Datumstempel
21.12.2017 14:11:03
Gregor
mit folgendem Makro möchte ich einen Datumsstempel erzeugen, falls in Spalte M etwas eingegeben wird.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M:M")) Is Nothing And Target.Count = 1 Then
If Target.Offset(, -10) = "" Then Target.Offset(, -10) = Date
End If
End Sub
Dies funktioniert, wenn ich in die Zelle M etwas manuell eingebe oder den Inhalt einer anderen Zelle hineinkopiere.
Es funktioniert aber nicht, wenn ich in eine Zelle der Spalte M den Inhalt mehrerer Zellen hineinkopiere (d.h. wenn ich z.B. den Inhalt zweier nebeneinander liegende Zellen kopiere danach Zelle M und N markiere und einfüge). Hier wird leider kein Datumsstempel erzeugt.
Gibt es dafür eine Lösung?
Vielen Dank im Voraus!
Anzeige