Datum generieren - Laufzeitfehler 13
RRP
Mein Ziel
Ich habe eine Excel-Liste zum Erfassen von Wareneingängen.
Ich möchte, dass das Datum Automatisch generiert wird, wenn man etwas in eine beliebige Zelle eintippt.
Das Datum soll beim öffnen des Dokuments nicht aktualisiert werden.
Meine Programmierung:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 And Target.Value 0 Then
Target.Offset(0, 20).Value = Now
End If
End Sub
Durch das Eingeben eines x-beliebigen Wertes in Spalte A wird ein Datum automatisch in Spalte U generiert.
Meine Probleme
1.
Sobald ich mehr als eine Zelle markiere und z.B. die Entfern-Taste tätige oder Zellen kopiere erscheint folgendes:
Laufzeitfehler '13':
Typen unverträglich
2.
Außerdem sollte eigentlich erst ab Zeile 7 ein Datum in Spalte U eingetragen werden.
Dieses Problem habe ich zwar lösen können indem ich "Value 0 Then" durch "Row > 6 Then" ersetzt habe. Aber dadurch traten wiederum noch mehr ungewollte Nebeneffekte auf.
Bitte um Hilfe!
Danke