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

Intelligente Tabelle Filter fixieren

Intelligente Tabelle mit Suchfeld durchsuchen?

Intelligente Tabelle mit mehreren Überschrift-Feldern

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