Datum einfügen klappt nicht
18.04.2003 18:01:34
Gerhard
folgendes Makro habe ich in ein Modul eingefügt
es sollte mir eigentlich in der letzten freien
zelle spalte A das aktuelle datum ausgeben ----
Doch leider passiert überhaupt nichts ---- Warum ???
Sub test()
Dim lZ As Long
lZ = 336
If [a336] = "" Then lZ = Cells(336, 1).End(xlUp).Row
If Cells(lZ, 1).Value = "" Then
Do
lZ = lZ - 1
Loop While Cells(lZ, 1).Value = ""
Cells(lZ + 1, 1) = Date
End If
End Sub
Anzeige