Microsoft Excel

Herbers Excel/VBA-Archiv

Autofill per VBA | Herbers Excel-Forum


Betrifft: Autofill per VBA von: alex
Geschrieben am: 24.11.2009 23:50:35

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

  

Betrifft: .Formula anstatt Autofill von: NoNet
Geschrieben am: 25.11.2009 00:01:21

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


  

Betrifft: AW: .Formula anstatt Autofill von: alex
Geschrieben am: 25.11.2009 00:10:18

super
funktioniert

dank dir nonet