MakroAnpassenZählenKopieren
26.10.2005 10:45:25
achim
Wer kann dieses Makro bearbeiten:
Sub Test()
With Sheets("DatenAusSheet1")
anzd = .Cells(Rows.Count, 1).End(xlUp).Row
'Anstatt AutoFill geht auch "soviel kopieren wie gezäht"?
.[c1].AutoFill Destination:=.Range("C1:C" & anzd), Type:=xlFillDefault
End Sub
Danke
achim h.
Anzeige