Danke für deine Hilfe... meinst du also so?
Sub Int_Tabelle_erstellen()
Dim letztezeile As Long
ActiveSheet.Select
Application.CutCopyMode = False
'Ermittlung der letzten Zeile
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1" & letztezeile), , xlYes).Name = "tbl"
ActiveSheet.ListObjects("tbl").ShowTotals = True
End Sub
Debuged leider... :- (
|