Autofill LastRow
24.07.2003 17:02:17
Jonathan
Sub ce()
Hallo
ich bin relativ neu hier. Ich habe daten in der Spalte A,B und C. Ich möchte in der Spalte D einen Autofill durchführen, der bis zur letzter Zeile der Spalte A geht. D.h. wenn ich in der Spalte A 500 Zeilen habe möchte ich das der Autofill in der Spalte D (Nur Spalte D!) bis zur 500derste Zeile geht.
Dim LastCellRow As Long
Range("A1").Select
Selection.End(xlDown).Select
LastCellRow = ActiveCell.Row
'MsgBox LastCellRow
Range("C" & LastCellRow).Formula = "=A1+a2"
Range("C" & LastCellRow + 1).Value = "hallo test"
End Sub
Bitte helft mir.