Arbeitsblattname in Zellen
27.06.2013 08:04:12
Andre
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
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
Anzeige