Auto Fill zur letzten Zeile
18.08.2003 15:13:04
Dari
habe von WernerB folgendes Makro gefunden:
Sub AutoAusFuellen()
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A" & laR), Type:=xlFillDefault
End Sub
Wie kann ich denn das Makro so umbauen, dass der Bereich T6 bis AH8 bis zur letzten Zeile ausgefüllt wird ???
Gruß
Dari
Anzeige