Makro zählenKopieren ergänzen
25.10.2005 10:49:41
achim
Wer kannn ergänzen bzw. korrigieren?
Sub Makro4()
Sheets("DatenAusSheet1").Activate
Set ziel = Sheets("DatenAusSheet1")
Lrow = ziel.Cells(Rows.Count, 1).End(xlUp).Row
anzd = WorksheetFunction.CountA(ziel.Range("A1:A" & Lrow))
Set meister = Sheets("DatenAusSheet1")
Range("C1").Select
ce = ActiveCell.Row
'Ab hier weis ich nicht mehr weiter:
'Nun soll das Makro so viele kopieren wie vorher gezählt
? Selection.Copy:=Range("C" & ce & ":C" & anzd), Type:=xlFillDefault
End Sub
Gruss achim h.