Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. Der Inhalt der Arbeitsblätter soll in einen Arbeitsblatt zusammen gefasst werden. Hierfür habe ich das folgende Makro gefunden, welches schon sehr gut funktioniert.
Private Sub CommandButton1_Click()
Dim wksT As Worksheet
Dim wksS As Worksheet
Dim i As Integer
Dim RowsT As Integer
Application.ScreenUpdating = False
Set wksT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet)
wksT.Name = "Zusammenfassung"
For i = 2 To Worksheets.Count - 1
Set wksS = Worksheets(i)
RowsT = wksT.Cells(Rows.Count, 3).End(xlUp).Row + 1
wksS.UsedRange.Copy Destination:=wksT.Cells(RowsT, 1)
Next i
End Sub
Ich bräuchte allerdings den Arbeitsblattnamen der Daten in Spalte D der Zusammenfassung und weiß nicht wie.An dem Aufbau der Excelliste kann ich nichts ändern, da ich diese gestellt bekomme. Ich habe mal eine Beispieldatei erstellt.
https://www.herber.de/bbs/user/86069.xls
Gruß
Andre