Hallo,
ich habe hier einen Code der alle Zeilen (ab Zeile 2) aus allen Tabellenblätter
dieser Mappe, in ein Tabellenblatt "Gesamt" kopiert.
Nun möchte ich aber das nicht alle Tabellenblätter, sondern nur die ersten 9 Tabellenblätter zusammengefügt werden,
Wie muss dann dieser Code umgeschrieben werden ?
Private Sub Worksheet_Activate()
Dim wks As Worksheet
Dim letzteZ As Long, x As Long
Application.ScreenUpdating = False
With Worksheets("Gesamt")
.Range(Rows(2), Rows(Rows.Count)).Delete
For Each wks In Worksheets
If wks.Name <> "Gesamt" Then
x = wks.Cells(Rows.Count, 1).End(xlUp).Row
letzteZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If x > 1 Then
wks.Cells(2, 1).Resize(x - 1, 10).Copy .Cells(letzteZ, 1)
End If
End If
Next
.Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Resize(, 10).Sort _
Key1:=.Cells(2, 1), Order1:=xlAscending, Header:=xlYes
End With
ActiveSheet.UsedRange.Offset(1).EntireRow.AutoFit
Range("A1").Select
Gruß
Fred