Erste Zeile nicht mitkopieren
19.02.2014 11:34:27
janesch
habe mir hier folgendes sehr nützliches VBA Code gefunden.
Private 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ührung"
For i = 1 To Worksheets.Count - 1
Set wksS = Worksheets(i)
RowsT = wksT.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksS.UsedRange.Copy Destination:=wksT.Cells(RowsT, 1)
Next i
End Sub
Ich möchte gerne, dass die erste Zeile der in den einzelnen Blättern nicht mitkopiet werden soll.Was muss ich im Code ändern.
Grüße
Janesch