Autofill per VBA
alex
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