Alle Tabellenblätter mehrerer Dateien in einer Datei

Forumthread: Alle Tabellenblätter mehrerer Dateien in einer Datei

23.10.2025 14:48:01

Andreas

Hallo zusammen,

Eine Frage, in der ich bisher noch keine passende Lösung gefunden habe und ich sehr hoffe das es geht und Ihr eine Idee habt: Ich habe mehrere Excel-Dateien. Darin sind jeweils ein oder mehrere Tabellenblätter. Ich möchte nun ohne händisches Kopieren, dass alle Tabellenblätter sich in einer Datei zusammenfinden. Die Bezeichnung der Tabellenblätter in den unterschiedlichen Ursprungsdateien können gleich sein (z.b. Tabelle 1). Wichtig wäre, dass alle Tabelleblätter übernommen werden. Die Bezeichnung der Tabellenblätter in der Ziel-Datei ist bestenfalls von der Ursprungs-Datei und wenn es Doppelungen gibt vielleicht mit fortlaufender Nummer versehen ... ist aber eigentlich nicht wichtig.

Ich hoffe ich konnte mich verständlich ausdrücken und ihr habt eine Ahnung, was ich möchte. Über eine Hilfe würde ich mich sehr freuen.

Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alle Tabellenblätter mehrerer Dateien in einer Datei

23.10.2025 15:07:40

JoWE

Hallo Andreas,
stell' die Frage in Google Gemini so:
Excel VBA alle Tabellenblätter mehrerer Arbeitsmappen eines bestimmten Ordners in eine neue Arbeitsmappe kopieren,
die kopierten und neu eingefügten Tabellenblätter nummerieren und zusätzlich mit dem Namen der Quellarbeitsmappe benennen.
Du erhälst einen Makrocode, der helfen kann.
Gruß
Jochen

AW: Alle Tabellenblätter mehrerer Dateien in einer Datei

23.10.2025 17:02:11

Andreas

Hallo Jochen,

zunächst erstmal vielen lieben Dank. Ich habe es hinbekommen. Nicht so elegant wie UweD (er hat gerade auch noch geantwortet), was an meinen geringeren Fähigkeit lag, die notwendigen Anpassungen im VBA zu machen. Aber durch verschiedene Formulierungsanfragen bei Google Gemini hat es dann doch funktioniert.
Ich bin ziemlich baff, weil ich vorher noch nie mit KI gearbeitet habe. Schon irgendwie krass. Dank deines Anstoßes habe ich es nun mal probiert und wahrscheinlich war es nicht das letzte mal.
Also vielen herzlichen dank nochmal!!!

Andreas

gerne

23.10.2025 17:04:09

JoWE

AW: Alle Tabellenblätter mehrerer Dateien in einer Datei

23.10.2025 15:52:23

UweD

Hallo

ChatGPT sagt das hier (musste ich aber noch nachbearbeiten)

Option Explicit



Sub Sammle_Tabellen_aus_Ordner()



    Dim Quelldatei As String

    Dim Quellpfad As String

    Dim Zielwb As Workbook

    Dim Quellwb As Workbook

    Dim ws As Worksheet

    Dim BlattNr As Long

    Dim Dateiname As String

    

    ' === Pfad anpassen ===

    Quellpfad = "E:\Excel\Temp\Test\" ' -- bitte anpassen, mit abschließendem Backslash

    

    ' Prüfen, ob der Pfad existiert

    If Dir(Quellpfad, vbDirectory) = "" Then

        MsgBox "Der angegebene Ordner existiert nicht!", vbCritical

        Exit Sub

    End If

    

    ' Neue Arbeitsmappe für die Zusammenfassung erstellen

    Set Zielwb = Workbooks.Add

    Zielwb.SaveAs Filename:=Quellpfad & "Zusammenfassung_" & Format(Now, "yyyymmdd_hhmmss") & ".xlsx"

    

    ' Erste Datei im Ordner finden

    Quelldatei = Dir(Quellpfad & "*.xls*")

    BlattNr = 1

    

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    

    ' Schleife über alle Excel-Dateien

    Do While Quelldatei > "" And InStr(Quelldatei, "Zusammenfassung") = 0 'alle außer die neu Erstellten

        

        ' Aktuelle Datei öffnen

        Set Quellwb = Workbooks.Open(Quellpfad & Quelldatei)

        Dateiname = Left(Quelldatei, InStrRev(Quelldatei, ".") - 1)

        

        ' Alle Blätter kopieren

        For Each ws In Quellwb.Worksheets

            ws.Copy After:=Zielwb.Sheets(Zielwb.Sheets.Count)

            

            ' Neues Blatt umbenennen

            On Error Resume Next

            Zielwb.Sheets(Zielwb.Sheets.Count).Name = _

                Format(BlattNr, "000") & "_" & Dateiname

            If Err.Number > 0 Then

                Zielwb.Sheets(Zielwb.Sheets.Count).Name = _

                    Format(BlattNr, "000") & "_" & Left(Dateiname, 20)

                Err.Clear

            End If

            On Error GoTo 0

            

            BlattNr = BlattNr + 1

        Next ws

        

        Quellwb.Close SaveChanges:=False

        Quelldatei = Dir ' Nächste Datei

    Loop

    

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

    

    MsgBox "Fertig! Es wurden " & BlattNr - 1 & " Blätter zusammengeführt.", vbInformation



End Sub

LG UweD

AW: Alle Tabellenblätter mehrerer Dateien in einer Datei

23.10.2025 17:05:10

Andreas

Hallo UweD,

sehr herzlichen Dank. Ich hatte auch das Problem, dass es nicht sofort lief. Ich habe es zwar hinbekommen. Dein angepasster Code gefällt mir aber doch besser. Dankeschön. Irgendwie verrückt, dass man mit KI jetzt schon so weit ist. Und verbunden noch mit den Fähigkeiten die Fehler zu beseitigen eine echte Unterstützung. Ich bin einigermaßen beeindruckt.
Danke Dir nochmal. Viele Grüße!

Andreas

Alle Tabellenblätter mehrerer Dateien in einer Datei

Forumthread: Alle Tabellenblätter mehrerer Dateien in einer Datei

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Alle Tabellenblätter mehrerer Dateien in einer Datei

Forumthread: Alle Tabellenblätter mehrerer Dateien in einer Datei

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread