weiss jemand eine Möglichkeit, wie man per VBA innerhalb einer Arbeitsmappe die Tabelle aus verschiedenen Sheets zusammenführen kann zu einer neuen permanent aktuellen Gesamttabelle in einem separatem Sheet?
Ich nutze dafür folgendes Makro, dieses muss aber immer manuell aktualisieren. Könnt Ihr mir dies ändern?
Mit Dank im Voraus,
Tanja
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