Office: (Office 2010) VBA Verschlankung. Zusammenfassung von mehreren intelligenten Tabellen

Hallo,

bisher arbeite ich mehr mit der Makro Aufnahmefunktion.
Ich würde nun gern den VBA Code verschlanken.

Ich habe 13 Blätter (Name:"1"-"13")mit jeweils einer intelligenten Tabelle (Tabelle1-Tabelle13) die ich im Blatt "Zusammenfassung" zusammenfassen möchte.Am Ende Filter ich noch die Leerzeilen raus.

Ich habe versucht die Datei hochzuladen, sie scheint aber zu groß zu sein.

Hier mein VBA Code, vielleicht geht's auch so.

Kann ich vielleicht ein einem Code alle intelligenten Tabellen gleichzeitig kopieren und dann in Zusammenfassung einfügen?

Danke vorab für eure Hilfe
Viele Grüße
Katja

 

Hi Katja,

meinst du so etwas

Code:

Sub Zusammen()
    Dim intZaehler As Integer
    Dim lngZeile As Long
    Dim rngBereich As Range
    With Worksheets("Zusammenfassung")
        Worksheets("1").ListObjects("Tabelle1").Range.Copy
        .Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        lngZeile = Worksheets("1").ListObjects("Tabelle1").ListRows.Count + 2
        For intZaehler = 2 To 13
            Set rngBereich = Worksheets(CStr(intZaehler)).ListObjects("Tabelle" & intZaehler).DataBodyRange
            rngBereich.Copy
            .Cells(lngZeile, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
            lngZeile = lngZeile + Worksheets(CStr(intZaehler)).ListObjects("Tabelle" & intZaehler).DataBodyRange.Rows.Count
        Next intZaehler
    End With
End Sub

Bis später,
Karin