Microsoft Excel

Herbers Excel/VBA-Archiv

Datum einfügen klappt nicht

Betrifft: Datum einfügen klappt nicht
von: Gerhard
Geschrieben am: 18.04.2003 - 18:01:34

Hallo kann mir jemand behilflich sein ?
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



  

Re: Datum einfügen klappt nicht
von: Ramses
Geschrieben am: 18.04.2003 - 18:05:06

Hallo Gerhard

das geht auch kürzer:

x = Cells(336, 1).End(xlUp).Row
Cells(x + 1, 1) = Date

Gruss Rainer

  

Re: Datum einfügen klappt nicht
von: Gerhard
Geschrieben am: 18.04.2003 - 18:11:56

Hey
Das ging ja wie ein Blitz
DANKE Rainer !!!
Ich hab ja von VBA keine Ahnung
aber dieses Script war dazu da
auch in eine Zelle die mit einer
Formel belegt ist das Datum einzufügen

  

Re: Datum einfügen klappt nicht
von: Gerhard
Geschrieben am: 18.04.2003 - 18:13:52

DANKE Rainer
ich versuch es mal !!!
gruß Gerhard