Ich bin auf der Suche nach einem VBA Code der die letzte Zeile einer Tabelle findet und diese dann nach unten erweitert inkl. Formeln.
Ich habe schon den Code zum finden der Zeile und den Befehl nach unten zu erweitern. Aber ich bekomme beides nicht zusammen.
Sub Tabelleerweitern()
Dim xLastRow As Long
Dim xRg As Range
Dim xAddress As String
Dim letztezeile As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set xRg = letztezeile
' If xRg Is Nothing Then Exit Sub
xLastRow = xRg.Row + xRg.Rows.Count
xRg.Rows(xLastRow).FillDown
xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub
Anscheind wird der Wert der Variabe letztzeile nicht an die Variable xRg übergeben.
Wo liegt mein Fehler?