VBA Range-Anweisung
Hermann
ich bin auf der Suche nach einem VBA-Code, der mir in Spalte J von J8 bis zur letzten verwendeten Zeile eine Formel einbringt. Das Problem dabei ist nicht die Formel, sondern wie ich das mit der letzten Spalte in der "Range-Anweisung" formulieren soll.
Mit fest vorgegebener Zeilenzahl (J222) läuft der VBA-Code schon, so:
ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-1]"
Selection.AutoFill Destination:=Range("J8:J222")
...aber ich will die letzte Zeile in der Variablen "lur" ermitteln und dann in der Range-Anweisung verwenden, wie geht das?
Die last-used-row (=lur) erhalte ich so:
Dim lur As Integer
lur = ActiveSheet.UsedRange.Rows.Count
Selection.AutoFill Destination:=Range("J8:J & lur & )" -- das geht laut Kompilierer so nicht
Selection.AutoFill Destination:=Range("J8:J ""& lur &"" )" -- das geht laut Kompilierer so auch nicht
wie geht das richtig?
Gruß Hermann