ich habe hier im Forum bereits eine Antwort darauf gefunden, wie man die Inhalte mehrerer Arbeitsblätter automatisch in ein einziges Blatt kopieren kann (ich habe den Code schon leicht modifiziert):
Sub Zusammenführen()
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 = "Zusammenführen"
For i = 1 To Worksheets.Count - 1 - 7
Set wksS = Worksheets(i)
RowsT = wksT.Cells(Rows.Count, 1).End(xlUp).Row
wksS.UsedRange.Copy Destination:=wksT.Cells(RowsT, 1)
Next i
End Sub
Nun möchte ich zwei Dinge ändern.1. Aus meinen Arbeitsblättern soll die erste Zeile (enthält Überschriften) n i c h t mitkopiert werden. Dafür muss sicherlich irgendwo eine "-1" eingefügt werden... nur wo?
2. Die For-Schleife läuft zurzeit für die ersten "(Anzahl Blätter minus 8)" durch. Gibt es eine Möglichkeit, die Position eines bestimmten Arbeitsblatt über seinen Namen herauszufinden? Ich möchte nämlich nur die Inhalte von den Arbeitsblättern links von einem bestimmten Blatt untereinanderkopieren.
Danke im Voraus für eure Hilfe.