Thema: Autofill per VBA | Herbers Excel-Forum

Irgendwie bekomme ich das Autofill per VBA nicht hin.
Kann mir jemand helfen?

Sub test()
With ThisWorkbook.Sheets(filename)
loletzte4 = IIf(IsEmpty(.Cells(.Rows.Count, 6)), .Cells(.Rows.Count, 6).End(xlUp).Row, . _
Rows.Count)
ThisWorkbook.Sheets(filename).Activate
Range("f" & loletzte4).Select
Selection.AutoFill Destination:=Range("F4:F" & loletzte4 + 1), Type:=xlFillDefault
End With
End Sub

Hallo Alex,
AutoFill über den quellbereich hinaus (loLetzte4+1) funktioniert nicht.
Evtl. genügt Dir auch das Kopieren der Formel/Funktion/Bezug der Zelle in die anderen Zellen des Bereiches :

Sub Ausfuellen()
Dim filename
filename = "Tabelle1"
With ThisWorkbook.Sheets(filename)
loletzte4 = IIf(IsEmpty(.Cells(.Rows.Count, 6)), _
.Cells(.Rows.Count, 6).End(xlUp).Row, .Rows.Count)
ThisWorkbook.Sheets(filename).Activate
Range("F4:F" & loletzte4 + 1).Formula = Range("f" & loletzte4).Formula
End With
End Sub

Gruß, NoNet

super
funktioniert
dank dir nonet