ich habe von der Arbeit aus den Auftrag bekommen mehrere Tabellenblätter in einem Tabellenblatt zusammenzuführen (es gibt hierbei fast ausschließlich Text in den Zellen). Änderungen in den einzelnen Tabellenblättern sollen zudem 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 mir dabei jemand helfen?Schon ein mal herzlichen Dank und viele Grüße
Alexa