Office: Mehrere Tabellenblätter zusammenführen

Hallo zusammen,

ich habe (mal wieder) ein Problem, bei dem mich die Suche nicht wirklich weitergebracht hat.
Das was ich gefunden habe ist nicht wirklich passend, obwohl mein Problem "relativ einfach" ist. Das glaube ich zumindest.

Ich habe eine Datei mit mehreren Tabellenblättern.
Aus einigen Tabellenblättern (nicht alle) sollen die Daten in ein schon vorhandenes Blatt ("Daten") zusammengeführt werden. Die Daten in den Tabellenblättern sind gleich angeordnet, gleiche Spaltenanzahl (A-I) aber unterschiedliche Länge.
Die Daten beginnen immer ab A5 und sollen im Tabellenblatt "Daten" untereinander zusammengefügt werden.
Die Daten werden immer erweitert.

Das wichtigste, es sind nur bestimmte Blätter die zusammengefügt werde sollen, nicht alle. Es sind die Sheets: 1, 4, 5, 6, 9, 10

Gibt es schon sowas? Wahrscheinlich habe ich es übersehen bzw. falsch gesucht.

Vielen Dank im voraus.
Andreas

:)

 

Hallo Andreas,

so:

PHP:

         Option Explicit

Public Sub zusammen()
Dim i As Long, wksZiel As Worksheet

Set wksZiel = Worksheets("Daten")

Application.ScreenUpdating = False

For i = 1 To 10
Select Case i
Case 1, 4, 5, 6, 9, 10
With Worksheets(i)
.Range(.Cells(5, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 9)).Copy
wksZiel.Cells(wksZiel.Cells(wksZiel.Rows.Count, 1).End(xlUp).Offset(1).Row, 1) _
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
Case Else
End Select
Next i

Set wksZiel = Nothing
End Sub


 

Hallo Werner,

danke für die schnelle Antwort.
Der Code funktioniert, allerdings werden nicht alle Daten übertragen und ab und zu sind auch die Überschriften drin die in der ersten Reihe stehen und eigentlich nicht kopiert werden sollen.

Ideal wäre es dass in Spalte "J" der Name der Tabelle drinsteht, aus der kopiert wurde. So könnte ich nachvollziehen wo der Fehler liegt.

Viele Grüße
Andreas

 

Hallo Andreas,

dann lade Mal bitte eine Beispielmappe mit Beispieldaten hier hoch, bei der das nicht korrekt funktioniert. Ansonsten wird das nur eine Ratereise.

Gruß Werner

 

Danke. Werde ich machen, allerdings kann es etwas dauern, weil ich momentan noch etwas anders zu tun habe und ich die Datei erst "bereinigen muss.

Viele Grüße
Andreas

 

Ich habe mal eine Beispieldatei erstellt.
Wie gesagt, Ideal wäre es wenn in der Spalte "J" noch der Tabellenname stehen würde.

Die Datei habe ich "zippen" müssen, weil sie sonst zu groß ist.

Viele Grüße
Andreas

 

Hallo Andreas,

PHP:

         Option Explicit

Public Sub zusammen()
Dim wksZiel As Worksheet, wks As Worksheet
Dim loLetzte As Long

Set wksZiel = Worksheets("Daten")

Application.ScreenUpdating = False

For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Daten"
nix machen
Case Else
With wks
If .Cells(5, 1) <> "" Then
loLetzte = wksZiel.Cells(wksZiel.Rows.Count, 1).End(xlUp).Offset(1).Row
.Range(.Cells(5, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 9)).Copy
wksZiel.Cells(loLetzte, 1).PasteSpecial Paste:=xlPasteValues
wksZiel.Cells(loLetzte, 10).Resize(.Range(.Cells(5, 1), _
.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 9)).Rows.Count) = wks.Name
Application.CutCopyMode = False
End If
End With
End Select
Next wks

Set wksZiel = Nothing
End Sub


 

Hallo Werner,

danke für die Bearbeitung.

Jetzt habe ich Dich in die Irre mit meiner Datei geführt. Es sollen nicht alle Tabellenblätter zusammengeführt werden , sondern nur die die im ersten Beitrag erwähnt wurden. Es gibt in der Datei noch andere Tabellenblätter, die ich aber blöderweise aus der Mappe gelöscht habe, weil ich nicht soweit gedacht habe. Sorry dafür.
Es sollen nur die Sheets "1, 4, 5, 6, 9, 10" zusammengeführt werden.

EDIT: ich habe Deinen Ursprünglichen Code nochmal genau angeschaut. Wenn ich als Sheet "1, 2, 3, 4, 5, 6" nehme funktioniert das Ganze.

Ich verstehe nur nicht wieso. Welche Bezeichnung wird dann hergenommen?

EDIT2: Ich habe es glaube ich verstanden. Die Nummerierung geht nach der Reihenfolge wie die Tabellenblätter in der Mappe angeordnet sind.
Und schon wieder etwas gelernt.


Viele Grüße
Andreas

 

Hallo Andreas,

du solltest schon versuchten zu verstehen was der Code macht. Steht ja quasi schon drin.
Alle Blätter die nicht erfasst werden sollen im ersten Case kommagetrennt erfassen.

PHP:

         Case "Daten", "nächstes_Blatt"
nix machen


 

Hallo Werner,

ich bin gerade dabei den Code zu verstehen. Es wird immer besser.

Gestern Abend war ich auch mit den Gedanken woanders.

Aber danke für Deine Hilfe. Du hast mir sehr geholfen. Jetzt kann ich den Code noch mit dem Rest vervollständigen.

Ich setzte das Thema als erledigt.


Viele Grüße
Andreas

 

Hallo Andreas,

anbei eine Lösung mit Power Query.

 

Hallo,

sorry für die späte Rückmeldung.
Danke für Deinen Vorschlag, aber ich komme mit dem Code vom Werner Bestens zurecht.

Viele Grüße
Andreas