Tabellenblätter zusammenfügen

[dennis1793]

Hallo zusammen!

Aus einer Exceltabelle möchte ich alle vorhandenen Tabellenblätter auf einem Tabellenblatt zusammenfügen. Überschift ist auf jedem Blatt identisch und soll nur einmal auf dem neuen Tabellenblatt einmal als überschift übernommen werden.
Ich habe einen Code, dieser funktioniert aber nicht so wie ich mit das vorstelle:


Sub TabellenKopierenUntereinander()
      Dim i As Integer
      With ActiveWorkbook
      'neue Tabelle an die erste Position einfügen
         .Worksheets.Add Before:=.Worksheets(1)
         For i = 2 To .Worksheets.Count
            'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
             Set Rng = .Worksheets(i).UsedRange
            'letzte Zeile ermitteln des ersten Blattes
            Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
            'Bereich kopieren
             Rng.Copy Destination:=rng1
          Next
      End With
   End Sub

Was muss verändert werden?

Gruß

[RPP63]

Moin!
In Deiner Excel-Version gibt es PowerQuery.
Schau mal hier:
http://www.excel-ist-sexy.de/blaetter-ei...nfassen-3/

Für zukünftige Projekte:
Gleichartige Daten(sätze) gehören in EIN Tabellenblatt.
Auswertung dann per Filter iVm Teilergebnis() oder Aggregat().
Oder per Spezialfilter oder Pivottabelle.
Oder per VBA-Datenmaske.
Oder per Formular-Tabellenblatt.
Stichworte: Dropdown, SVERWEIS(), Summewenn(s) und die diversen Ableitungen.

Gruß Ralf

[dennis1793]

Vielen Dank, für die Antwort. Gibt es dafür nicht einfach einen Code den ich nur einfügen brauche?

Gruß

[RPP63]

Befasse Dich doch einfach mal mit der Materie PowerQuery, Dennis.
Zumal hier eine sehr gute step-by-step-Anleitung vorliegt.
Dürfte Dir zukünftig eher helfen als ein "Nu macht mal, ich habe für so einen Quatsch keine Zeit".

Gruß Ralf