VBA LastRow

[AxelM]

Hallo,
Ich versuche mit folgendem Ausdruck jeweils den Bereich auf die letzte Zeile auszudehnen.
Selection.AutoFill Destination:=Range("L2:L" & LastRow)
LastRow bringt korrekte Werte.
gibt es eine Möglichkeit, das SO auszudrücken?

 

[owieortho]

Wenn ein Bezug so konstruiert werden soll, muss die Funktion INDIREKT eingesetzt werden. So geht es direkt auf dem Tabellenblatt, welche Anpassungen oder Ausdrücke in VBA dazukommen, wäre noch zu klären.
Aber vielleicht hilft das ja schon weiter.
O.

 

[AxelM]

Gut... jetzt kam eben zu "Bahnhof" noch "Kofferklau" dazu
Was meinst du mit indirekter Anwendung?

 

[maneskinns]

Selection.AutoFill Destination:=Range("L2:L" & LastRow)
sollte so funktionieren.
Voraussetzung ist:
1) In Last Row steht der numerische Wert der letzten Zeile (kein Objekt und kein Bezug)
2) Die Selektion befindet sich in der Spalte L in einer Zelle, die die Formel bereits enthält

Zur Sicherheit eventuell direkt adressieren:
range("L2").AutoFill Destination:=Range("L2:L" & LastRow)