Daten aus 2. Tab holen und in Tab1 hinzfügen
18.04.2015 14:48:29
Werner
ich habe ein kleines Problem, obwohl ich schon eine Lösung habe. Ich habe eine Excel-File mit mehreren Tabellen-Blättern. Manche dieser Blätter werden automatisch erzeugt, und haben einen bestimmten Syntax im Blatt-Namen. Daneben gibt es ein Blatt mit dem Namen "Gesamtliste".
Nun möchte ich die "Gesamtliste" um die Daten der automatisch erzeugten Blätter erweitern; die jeweiligen Daten werden also einfach an dieses Blatt angefügt. Die Spalten sind identisch.
Meine Lösung:
WSCount = ActiveWorkbook.Worksheets.Count
CurrSheet = ActiveSheet.Name
MaxRowG = ActiveSheet.UsedRange.Rows.Count
For LCount1 = 1 To WSCount
If Left(Worksheets(LCount1).Name, Len(CopyName)) = CopyName Then
CopySheet = Worksheets(LCount1).Name
MaxRowI = Sheets(LCount1).UsedRange.Rows.Count
MaxColI = Sheets(LCount1).UsedRange.Columns.Count
Sheets(LCount1).Select
Sheets(CopySheet).Range(Cells(2, 1), Cells(MaxRowI, MaxColI)).Copy
Sheets(CurrSheet).Select
Cells(1 + MaxRowG, 1).Select
ActiveSheet.Paste
MaxRowG = ActiveSheet.UsedRange.Rows.Count
End If
Next LCount1
Was mich stört, ist die Tatsache, dass diese Routine nur funktioniert, wenn ich das jeweilige Blatt mit ".Select" aktiviere.
Geht das auch, ohne dass ich das jeweilige Blatt immer "aktiviere"?.
Da ich aus den Tabellenblättern alle Daten ab Zeile 2 übernehme, gäbe es auch die Möglichkeit, die gesamten Daten zu kopieren und dann in das Gesamt-Blatt einfügen. Weil dann allerdings auch die Titel-Zeile kopiert würde, müsste ich die nach dem Einfügen wieder löschen (was kein Problem darstellt).
Wie würde eine Lösung aussehen, alle Daten zu kopieren?
Grüße aus dem Schwabenland
Werner