Hallo zusammen,
als absoluter Anfänger im Reich der Makros und VBA stehe ich vor einigen Herausforderungen. Ich habe eine Datenbank, die mit 6 Spalten endet, die jeweils mit Hilfe von Funktionen Daten der jeweiligen Zeile errechnet (unter anderem auch mit Hilfe von Verweisen). Da es sich um über 4000 Zeilen handelt, möchte ich nicht bei jeder Änderung immer die Zeilen per scrollen nach unten kopieren, die Zeilenanzahl kann jedoch variieren. Daher hilft mir das aufgezeichnete Makro nicht ganz:
Sub FormelnKopieren()
'
' FormelnKopieren Makro
' Selbstberechnende Formeln ausführen
'
'
Range("Y6:AD6").Select
Selection.AutoFill Destination:=Range("Y6:AD5814"), Type:=xlFillDefault
Range("Y6:AD5814").Select
Range("Y5817").Select
End Sub
Kann mir jemand sagen, wie ich hier das "bis jeweils letzte Zeile" einfüge?!
Vielen Dank!
PL |