---

Kunststsoffe.zip

Hallo zusammen,

ich hätt eien Frage an die Spezialisten,

Ich möchte die Tabellen (ABS,PC, POM...) in dem Excel-file zur einer Tabelle zusammenfassen,wie könnte ich dies automatisch machen.

Mir ist bewust, dass ich das auch manuelle machen könnte, dies wäre sehr zweitintensiv und könnte auch ungenau werden.

Ich bedanke mich für eure Hilfe.

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wenn ich dich richtig verstanden habe, ginge das z.B. mit diesem Code, wenn alles in einer neuen Tabelle1 zusammengefasst werden soll

Sub zusammenfassen()
    Dim wsTabelle As Worksheet
    Dim loLetzte As Long
    Dim loZeile As Long
    loZeile = 2
    For Each wsTabelle In ThisWorkbook.Worksheets
        If wsTabelle.Name <> "Tabelle1" Then
            With wsTabelle
                loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
                .Range("A2:F" & loLetzte).Copy Worksheets("Tabelle1").Cells(loZeile, 1)
                loZeile = loZeile + loLetzte - 1
            End With
        End If
    Next wsTabelle
End Sub

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bevely,

als erstes möchte ich mich bei dir für die schnelle Antwort bedanken.

Ich habes auch sofort gestet es hat geklappt, tool.

Ich hätte eine optionale Frage, ich hab ein Pivot gemacht, mein Problem ist wenn ich die zusammenfassung Makro aktiviere, werden die Daten von den einzelnen Tabellen drauch summiert,ist es möglich das beim updaten von zusammenfassung (Tabelle1)die alten Daten zur eliminieren.

Vielen dank für die Hilfen

UGMANX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

ergänze den Code nach der Zeile loZeile = 2 durch diese Zeilen

    With Worksheets("Tabelle1")
        .Rows("2:" & IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)).ClearContents
    End With

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP