ich habe eine Exceldatei mit 10 Tabellenblättern, die die gleiche Tabelle (gleiche Überschriften) beinhalten. Diese würde ich gerne mit der Überschrift in Zeile 1 in dem Tabellenblatt "Konsolidierung" per Makro zusammenfügen, damit ich bei Aktualisierung der 10 Tabellen auch die neuen Daten in der Tabelle "Konsolidierung" habe.
Ich habe nun ein Makro aufgezeichnet, bei dem ich die Daten in den verschiedenen Tabellen kopiert und in die Tabelle "Konsolidierung" untereinander eingefügt habe.
Da sich meine 10 Tabellen aber anhand einer Webabfrage automatisch beim Öffnen der Datei aktualisieren, kommen auch neue Zeilen in den Tabellen hinzu die auch in die Tabelle "Konsolidierung eingefügt werden sollen.
Könnt ihr mir hierbei bitte weiterhelfen?
Mein Makro sieht wie folgt aus:
Sub Aktualisierung()
' Aktualisierung Makro
' Dieses Makro fügt die aktualisierten Listen in das Tabellenblatt Konsolidierung zusammen
' Nimmt das Tabellenblatt R8LR und kopiert Zeile 2 bis zu meiner Auswahl, übernimmt aber nicht _
_
neu hinzugekommene Spalen'
Sheets("R8LR").Select
Range("Tabelle__R8LR").Select
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Selection.Copy
Sheets("Konsolidierung").Select
ActiveWindow.SmallScroll Down:=-6
Range("A2").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Sheets("S15i").Select
ActiveWindow.SmallScroll Down:=-21
Range("Tabelle__S15i").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Konsolidierung").Select
Range("A12").Select
ActiveSheet.Paste
Sheets("M98MA").Select
Range("Tabelle_M98MA").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Konsolidierung").Select
ActiveWindow.SmallScroll Down:=165
Range("A177").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=99
Sheets("F16").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Tabelle_F16_").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Konsolidierung").Select
Range("A275").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=159
Range("A437").Select
Sheets("M98ST").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Tabelle_M98ST").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Konsolidierung").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
Sheets("S15iKS").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Tabelle__S15iKS").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Konsolidierung").Select
Range("A441").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
Sheets("BSLB").Select
ActiveWindow.ScrollColumn = 1
Range("Tabelle_BSLB").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Konsolidierung").Select
Range("A446").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
Sheets("ISD").Select
Range("E2:L3").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Tabelle_ISD").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Konsolidierung").Select
Range("A467").Select
ActiveSheet.Paste
Sheets("M12HS").Select
ActiveWindow.ScrollColumn = 1
Range("A3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Konsolidierung").Select
Range("A468").Select
ActiveSheet.Paste
End Sub
Danke schonmal und viele Grüße