|
Hallo liebe VBA Freunde!
Ich würde gern via VBA eine Intelligente Tabelle erstellen über den gefüllten Bereich, weil die Bereiche nicht immer gleich sind.
Stehe gerade leider an, weil ich nicht weiß wie ich die letzte Spalte und Zeile als "Endbereich" definiere:-(
Danke schon mal!!!!
Bisher habe ich folgenden Code:
Sub Int_Tabelle_erstellen()
Dim letztezeile As Long
Dim letztespalte As Long
ActiveSheet.Select
Application.CutCopyMode = False
'Ermittlung der letzten Zeile
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'MsgBox letztezeile
letztespalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
'MsgBox letztespalte
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1" & letztespalte & letztezeile), , xlYes).Name = "tbl"
ActiveSheet.ListObjects("tbl").ShowTotals = True
End Sub
|