|
Guten Morgen,
ich habe folgenden Code, der mir in die Zelle D2 die aktuelle Uhrzeit setzt und anschließend soll diese Uhrzeit bis in die letzte Zeile kopiert werden. Jetzt ist mir aufgefallen, bei mehr als einer Zeile funktioniert das nur wenn Zeile 2 gleichzeitig auch die letzte Zeile ist, dann Zeigt er mir einen Fehler (Zeile der mit der Debugger zeigt ist mit !!! markiert (nein so steht das nicht im Code ;) ).
--------------------------
Dim letzteZeile As Long
letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("D2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Application.Calculation = xlManual 'automatische Berechnung aus
!!!Range("D2").AutoFill Destination:=Range("D2:D" & letzteZeile), Type:=xlFillDefault!!!
Application.Calculation = xlAutomatic 'automatische Berechnung an
Columns("D:D").Select
Selection.NumberFormat = "dd.mm.yyyy hh:mm:ss"
------------------------------
Grüße |