Tabellenblätter zusammenkopieren mit Tabellennamen
12.12.2014 10:53:21
Stefan
ich habe hier im Forum schon ein hilfreiches Makro gefunden, dass den ersten Teil meiner Problemstellung sehr gut erledigt.
Mehrere Tabellenblätter mit gleichem Spaltenaufbau und jeweils hunderten von Zeilen werden dadurch auf einem Blatt untereinanderkopiert - soweit gut.
Die Herausforderung, die ich jetzt noch habe, ist die, dass die Tabellenblätter jeweils den Namen ihrer Datenquelle tragen, dieser aber nicht in den Rohdatensätzen auftaucht. Daher möchte ich, dass das Makro den Blattnamen als zusätzliche Spalte auf das Blatt "Zusammenfassung" ergänzt.
Hier das bisherige Makro:
Sub zusammenfassen()
Dim Zeile&, letzteZ&
'Auswertungsblatt einfügen
Worksheets.Add.Name = "Zusammenfassung"
ActiveSheet.Move Before:=Worksheets(1)
'Von Blatt 1 bis Blatt 10 zusammenfassen
For i = 2 To 11
With Worksheets(i)
letzteZ = .Cells(Rows.Count, 1).End(xlUp).Row
Zeile = Worksheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A2:L" & letzteZ).Copy Worksheets("Zusammenfassung").Range("A" & Zeile)
End With
Next
End Sub
Kann mir jemand sagen, wie man das entsprechend ergänzen kann?
Vielen Dank für Eure Hilfe!
Stefan