Blätter zusammenführen, erste Zeile überspringen
29.07.2014 14:43:32
Gero
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
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.