VBA-Code: Zusammengeführte Tabellenblätter automatisch aktualisieren

[AS2018]

Hallo zusammen,

ich habe von der Arbeit aus den Auftrag bekommen mehrere Tabellenblätter (eines Tabellenblattes) in einem Tabellenblatt zusammenzuführen (alle Tabellenblätter haben die gleiche Anzahl und Betitelung der Spalten; es gibt fast ausschließlich Text in den Zellen). Änderungen in den einzelnen Tabellenblättern sollen gleichzeitig in der Zusammenführung aktualisiert werden. Die Zusammenführung habe ich mit folgendem VBA-Code durchgeführt (diesen habe ich in einem Forum gefunden):

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Zusammenführung"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

Wie eine automatische Aktualisierung funktioniert, konnte ich jedoch nicht für meinen Fall finden bzw. bin leider nicht in der Lage, dies für meinen Fall anzupassen. Kann ich das auch mit einem VBA Code (z.B. Refresh) machen?

Schon einmal herzlichen Dank für die Hilfe und viele Grüße
Alexa

[GMG-CC]

Moin,
ich mache so etwas mir Power Query, -> http://www.excel-ist-sexy.de/power-query-das-add-in/. Automatisierung durch Kalick auf Aktualisieren.

[Werner.M]

Hallo,

würdest du dann bitte wenigstens die Beiträge in den verschiedenen Foren untereinander verlinken.

Gruß Werner