Hilfe !! VBA-Code funzt nicht
21.06.2004 20:33:21
Gery
Ich habe ein Problem, ich möchte folgenden VBA-Code verwenden, um ein Datum in Die Spalte A in die Erste freie Zelle eintragen, aber leider funzt das nicht
Es hängt in der Zeile
Loop While ......
Da ich keine Ahnung von VBA habe, hoffe ich auf Hilfe von Euch.
Kann Jemand von Euch diesen Code verändern, das er funzt, oder mir einen anderen VBA-Code basteln ?
Danke im Voraus für Euer Interesse und Hilfe.
mfG
Gery
Sub neuesDatumEinfügen()
Dim lZ As Long
lZ = 53
If [A53] = "" Then lZ = Cells(53, 3).End(xlUp).Row
If Cells(lZ, 3).Value = "" Then
Do
lZ = lZ - 1
Loop While Cells(lZ, 3).Value = ""
Cells(lZ + 1, 3) = Date
End If
End Sub