Office: Intelligente Tabelle erstellen bis letzte Zeile

thomme1 · 5. Oktober 2019

Guten Abend Forumsgemeinde
Ich habe mit dem Recorder die Erstellung einer intelligenten Tabelle aufgezeichnet. Der Bereich ist immer A2 bis AA, jedoch ist die letzte Zeile in Spalte A immer unterschiedlich (im Bsp. 3100).
Wie kann ich den Code Variabel gestalten.
Vielleicht kann mir jemand helfen.
Code:

Sub Int_Tabelle_erstellen() ' In Register Artikel intelligente Tabelle erstellen inkl. Ergebniszeile
Sheets("Artikel").Select
Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A2:AA3100"), , xlYes).Name _
= "tbl_Artikel"
ActiveSheet.ListObjects("tbl_Artikel").ShowTotals = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

ReginaR · 7. Oktober 2019

Hi, sollte so gehen:
Code:

Sub Int_Tabelle_erstellen() ' In Register Artikel intelligente Tabelle erstellen inkl. Ergebniszeile
Dim lng_zeile as long
Sheets("Artikel").Select
Application.CutCopyMode = False
lng_zeile = Worksheets("Artikel").Cells(Rows.Count,1).End(xlUp).Row
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A2:AA" & lng_zeile), , xlYes).Name _
= "tbl_Artikel"
ActiveSheet.ListObjects("tbl_Artikel").ShowTotals = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

derHoepp · 7. Oktober 2019

Moinsen,

ich würde dabei einfach auf das Hilfsobjekt CurrentRegion zurückgreifen, das ist letztlich das gleiche, was passiert, wenn du Strg+T in einem zusammenhängenden Bereich drückst (ungetestet):
Code:

Sub Test()
With Sheets("Artikel")
With .ListObjects.Add(xlSourceRange,.Cells(2,1).CurrentRegion,,xlyes)
.Name = "tbArtikelliste"
.ShowTotals = True
End With
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Grüße
derHöpp

thomme1 · 9. Oktober 2019

Hallo
Habe den Code von Regina getestet. Klappt wunderbar.
Werde den anderen auch noch anschauen und testen.
Besten Dank Euch beiden für Eure Hilfe.

ExcelDok · 3. September 2020

Hi, auch wenn der Fall schon gelöst wurde, hier die Lösung vom Höpp, die tatsächlich funktioniert (xlSourceRange durch xlSrcRange ersetzen).

Code:

Sub Test()
With Sheets("Artikel")
With .ListObjects.Add(xlSrcRange,.Cells(1,2).CurrentRegion,,xlyes)
.Name = "tbArtikelliste"
.ShowTotals = True
End With
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Intelligente Tabelle erstellen bis letzte Zeile

Intelligente Tabelle erstellen bis letzte Zeile

Intelligente Tabelle erstellen bis letzte Zeile

Intelligente Tabelle erstellen bis letzte Zeile

Intelligente Tabelle erstellen bis letzte Zeile - Similar Threads - Intelligente Tabelle erstellen

Bedingte Formatierung funktioniert nicht

VBD Daten aus einer "intelligenten" Tabelle in einer anderen "intelligenten" Tabelle archivieren

Fehler in intelligenter Tabelle

Daten in intelligenter Tabelle updaten

Intelligente Tabelle erweitern trotz Blattschutz

Index/Aggregat in Intelligente Tabelle

Benutzerdefiniertes (Monats-)Format bei intelligenten Tabellen nicht möglich?