Autofill dynamisch?

[elamigo]

Guten Tag,

ich schreibe per 
Range("AF7").FormulaLocal 
und 
Range("AE7").FormulaLocal

je eine Formel in diese Zelle. Nun möchte ich das dieser Bereich dynamisch angepasst wird und im Marko die Formel auf die restlichen Zeilen der Tabelle ausgefüllt wird.

Wenn ich den Rekorder nehme, dann bekomme dieses raus:

Code:

    Range("AF7").Select
    Selection.AutoFill Destination:=Range("AF7:AF14")
    Range("AF7:AF14").Select

Allerdings ist das Ende dieser Auswahl nicht immer AF14 (hatte auch Doppelklick gemacht beim aufzeichnen) wie kann ich dieses AF14 individuell gestalten?


EDIT:

Code:

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Selection.autofill Destination:=Range("AE7:AE" & LastRow)

Klappt nicht oder muss wohl nochmal angepasst werden?

[schauan]

Hallo,

nimm doch gleich den betreffenden Bereich wenn Du die Formel setzt, wozu extra nochmal Autofill aufrufen (mal unabhängig davon, ob des geht oder nicht) ...

[elamigo]

Das Problem ist, dass der Bereich immer anders ist, daher auch das Makro.

[Kuwer]

Hallo,

Code:

Sub Makro1()
  Dim LastRow As Long
  LastRow = Application.Max(7, Cells(Rows.Count, "A").End(xlUp).Row)
  Range("AE7:AE" & LastRow).FormulaLocal = "DieFormel"
End Sub

Gruß Uwe

[elamigo]

uwe ich danke dir, klappt perfekt :)