habe folgenden Code aus dem Forum, den ich ganz gut gebrauchen kann. In diesem Beispiel wird Tabelle1 als Zieltabelle nicht berücksichtigt. Tabelle1 soll bei mir auch Zieltabelle bleiben, nur möchte ich noch mehr Tabellen nicht berücksichtgen (z.B. Tabelle2 und Blatt5 sollen nicht in Tabelle1 kopiert werden).
Wie mache ich das?
Sub Zusammenfassen()
Dim wks As Worksheet
For Each wks In Worksheets
'Tabelle1 soll als Zieltabelle nicht berücksichtigt werden
If wks.Name <> "Tabelle1" Then
'Beispiel geht davon aus, dass die Tabellen in Zeile
'1 Überschriften haben:
wks.Range("A2:D" & wks.Range("D65536").End(xlUp).Row).Copy _
Destination:=Worksheets("Tabelle1").Range("A" & _
Range("A65536").End(xlUp).Row + 1)
End If
Next wks
'Zielbereich in Tabelle1 wird nach Spalte A aufsteigend sortiert
Worksheets("Tabelle1").Range("A1:D" & Worksheets("Tabelle1") _
.Range("D65536").End(xlUp).Row).Sort _
Key1:=Range("A1"), Order1:=xlAscending, Header:=True
End Sub
Danke für Eure Hilfe
Marco