Automatisch Systemdatum auflisten



Excel-Version: Excel 97
nach unten

Betrifft: Automatisch Systemdatum auflisten
von: sergen
Geschrieben am: 24.05.2002 - 11:53:51

Hallo Leute,

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



nach oben   nach unten

Re: Automatisch Systemdatum auflisten
von: Udo RiHü
Geschrieben am: 24.05.2002 - 12:27:05

Hallo,
versuch's mal mit

If not IsEmpty(cells(c,2) and not IsEmpty(cells(c,1)) Then
cells(c,1)=Date
end if

Gruss Udo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Automatisch Systemdatum auflisten"