VBA-Code: Tabellenblätter aktualisieren
06.10.2017 15:08:34
AS2017
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
Schon ein mal herzlichen Dank und viele Grüße
Alexa
Anzeige