Makro - letzte gefüllte Zeile

[luna00]

Hallo zusammen,

wie schaffe ich es, dass in meinem Makro die Formel bis in die letzte gefüllte Zeile gezogen wird?
Aktuell sieht es so aus:

Range("D2:V2").Select
    Selection.AutoFill Destination:=Range("D2:V1500")
    Range("D2:V1500").Select

Aber die Datenanzahl ändert sich jedes mal. Also was muss anstelle des "V1500" stehen? Gibt es da einen Weg?

Danke.

[RPP63]

Moin!
Warum nutzt Du nicht (nach Auswahl von D2:V2) den Doppelklick auf das Ausfüllkästchen?
Oder nutzt ein Tabellenobjekt (Einfügen → Tabelle)?

(zu letzte benutzte Zelle findest Du in jeder Suchmaschine Deiner Wahl Hunderttausende richtige Ergebnisse)

Gruß Ralf

[derHoepp]

Moin,

am einfachsten geht es, wenn du deine Tabelle auf ein ListObject umstellt (Strg+T-Tabelle) da füllen sich Formeln ganz allein.

Ansonsten hilft dir vielleicht die .Columns()Collection der CurrentRegion weiter:

Code:

Cells(1).CurrentRegion.Columns(3).Offset(1).Resize(Cells.CurrentRegion.Rows.Count -1).Font.Bold=true

(ungetestet)
Viele Grüße
derHöpp