Makro Zählen und AutoFill

Forumthread: Makro Zählen und AutoFill
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro Zählen und AutoFill

14.06.2006 15:35:00

achim

Wer kann diesen code prüfen
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.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro Zählen und AutoFill

14.06.2006 16:08:05

Harald
AWmt

14.06.2006 17:01:30

achim
AW: Danke für die Rückmeldung owT

14.06.2006 19:26:27

Harald

AW: Makro Zählen und AutoFill

14.06.2006 16:08:05

Harald

Hallo Achim,
hast die Zeilennummer zweimal vergeben.
ce ist für F2 = 2 und Lrow ergibt ja auch noch mal eine Zeilenummer.
Range("F" & ce & Lrow)hiesse in deinem Fall Range("F" & 2 & 10 )
Das da dürfte eher passen.


Sub Makro2()
Set ziel = Workbooks("Geschwindigkeitsüberschreitungen_Zwangsbremsungen_2006.xls").Sheets("Zwangsbremsungen")
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("F2").AutoFill Destination:=Range("F" & Lrow), Type:=xlFillDefault
End Sub

Gruss Harald

AWmt

14.06.2006 17:01:30

achim

Danke für diesen Supertipp.
Klappt
gruß
achim h.

AW: Danke für die Rückmeldung owT

14.06.2006 19:26:27

Harald

Gruß
Harry

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!