Makro Zählen und AutoFill
14.06.2006 13:35:00
achim
Funktion: Zähle die einträge in A und dann F2 select und mit autoFill siviel wie in A gezählt herunterkopieren
Bekomme bei meinem code immer einen fehler
weiss aber nicht warum
Sub Makro2()
Set ziel = Workbooks("Geschwindigkeitsüberschreitungen_Zwangsbremsungen_2006.xls").Sheets("Zwangsbremsungen")
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("F2").Select
ce = ActiveCell.Row
Selection.AutoFill Destination:=Range("F" & ce & Lrow), Type:=xlFillDefault
End Sub
danke
achim h.