das Systemdatum soll in Spalte A automatisch eingetragen werden, solange in Spalte B, C, etc. Werte auftauchen. Unten stehender Code hat mir zwar geholfen, aber er aktualisiert das zuvor eingetragene Datum.
Sub heute()
Dim c As Date
Dim i As Range
ende = Cells(65536, 2).End(xlUp).Row 'von letzter Zeile aufwärts
For c = 1 To ende
If Not IsEmpty(Cells(c, 2)) Then
Cells(c, 1) = Date
End If
Next
End Sub
So sollte es aussehen:
A B C
22.05.02 24500 ...
22.05.02 34000 ...
... ....
23.05.02 10000 ...
usw.
Wenn ich heute das Datum eintragen lasse, dann wird der 25.05.02 eingetragen, ohne die zuvor aufgelisteten zu löschen oder umzuändern. Was müsste am Code geändert werden?
Dank und Gruss, sergen