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

Helfe beim Thema VBA Verschlankung. Zusammenfassung von mehreren intelligenten Tabellen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, bisher arbeite ich mehr mit der Makro Aufnahmefunktion. Ich würde nun gern den VBA Code verschlanken. Ich habe 13 Blätter... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Katja1234, 7. Februar 2019.

  1. Katja1234 hat Ahnung

    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
     
    Katja1234, 7. Februar 2019
    #1
  2. Beverly
    Beverly Erfahrener User
    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
     
    Beverly, 7. Februar 2019
    #2
Thema:

VBA Verschlankung. Zusammenfassung von mehreren intelligenten Tabellen

Die Seite wird geladen...
  1. VBA Verschlankung. Zusammenfassung von mehreren intelligenten Tabellen - Similar Threads - VBA Verschlankung Zusammenfassung

  2. VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

    in Microsoft Excel Hilfe
    VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.: Hallo zusammen, Eine Tabelle mit 9 Worksheets, Datenblatt, Studien, Studie_1 ...Studie_7. Auf dem Deckblatt werden in Zelle B4-B10 die Namen der Studien eingetragen. Davon abhängig ob ein Name...
  3. VBA Zeilen kopieren mit Bedingung

    in Microsoft Excel Hilfe
    VBA Zeilen kopieren mit Bedingung: Hallo zusammen, Ich möchte per Makro Zeilen aus Tabelle2 in Tabelle3 kopieren, wenn eine Bedingung erfüllt ist. Bedingung: Der Wert in Spalte E (Tabelle2) kommt in Tabelle1 in Spalte E vor....
  4. VBA - Datensätze ans Ende einer anderen Tabelle kopieren

    in Microsoft Excel Hilfe
    VBA - Datensätze ans Ende einer anderen Tabelle kopieren: Hallo zusammen, ich habe gerade eine "Abrechnungs"-Datei für einen Kindergartenbasar erstellt. Es wäre klasse, wenn man per Schaltfläche die Datensätze aus der Tabelle "Kaeufer" ans Ende der...
  5. Laufzeitfehler 9 VBA

    in Microsoft Excel Hilfe
    Laufzeitfehler 9 VBA: Nschdem ich die Office Version von 2010 auf 2019 aktualisiert habe wird mir der Laufzeitfehler 9 ausgegeben. Das ist der Code Sub FiberCollect() Dim NumRows As Long 'letzte celle Dim Counter As...
  6. Excel VBA Spalten mit Ordnerinhalt vergleichen

    in Microsoft Excel Hilfe
    Excel VBA Spalten mit Ordnerinhalt vergleichen: Hallo, Bin ehr Excel VBA Neuling, Würde aber gerne in einer bestehender Tabelle die Auflistung der Ordner mit dem eigentlichen Stand in den besagten Ordner kontrollieren. Also in der Spalte Q10...
  7. VBA - letzte nicht-leere Spalte

    in Microsoft Excel Hilfe
    VBA - letzte nicht-leere Spalte: Moin, liebe VBA-Spezis, mit Cells(99, Columns.Count).End(xlToLeft).Column bestimme ich die Spaltenzahl der letzten benutzten Zelle in Zeile 99. Soweit, so klar. Nun habe ich aber Formeln in...
  8. Summieren farbiger Zahlen anhand des Farbcodes ohne VBA

    in Microsoft Excel Hilfe
    Summieren farbiger Zahlen anhand des Farbcodes ohne VBA: Hallo liebes Forum, welche Formel muss ich eingeben, wenn ich farbige Ziffern (z.B. rot = Farbcode 3; grün = 4) addieren möchte. Danke im voraus für die schnelle Antwort Gruß mfkathie
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden