Makroproblem
15.01.2007 15:28:10
alex
Ich wende mich mit folgendem Problem an euch:
Ich verwende nachstehendes Makro (Hans CD) um die nächste leere Zelle zu finden.
Dim Spalte As Integer 'Dim Spalte%
Spalte = 2 'Spaltennummer: 1 = Spalte a, 2 = Spalte b ...
If IsEmpty(Cells(Cells.Rows.Count, Spalte).End(xlUp)) Then _
GoTo Fehler
Cells(Cells.Rows.Count, Spalte).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Exit Sub
Fehler:
Cells(Cells.Rows.Count, Spalte).End(xlUp).Select
ActiveCell.Value = Date &" "& Time
Das klappt auch tadellos. Jetzt möchte ich in diese Zelle das aktuelle Datum und Uhrzeit schreiben (ActiveCell.Value = Date &" "& Time) das macht er aber nicht. Habe den Code am Endes desWie kann ich das bewerkstelligen?
lg Alex