2 Listen zusammenführen in einer Tabelle

[illi]

Zuerst mal ein nettes Hallo in die Runde,
ganz neu hier komme ich gleich mit einem Problem, bei dem ich absolut nicht weiterkomme.

Ich habe 2 identisch aufgebaute Listen in 2 versch. Tabellenblättern einer Mappe.

Diese sollen per VBA im ActivateEreignis eines anderen Tabellenblattes zusammengeführt werden

Das Problem ist, dass die beiden Tabellen wachsen und unterschiedlich viele Datensätze beinhalten.

Im Grunde soll dies so aussehen

Tabelle Zusammenfassung leeren

Tabelle Werte1 in Zusammenfassung kopieren
Tabelle Werte 2 (ab Zeile2 - die Überschriften sind bereits aus Tabelle Werte1 vorhanden ans Ende der Tabelle Zusammenfassung kopieren.

Wäre toll wenn jemand von euch helfen könnte

Liebe Grüße
Illi

[Officer]

Hallo illi,

zunächst heiße ich dich im Forum herzlich willkommen!

Ich hab schnell ein Beispiel programmiert für Deien Frage programmiert, siehe Anhang.

Hier noch der Code:

Diesen Code in das Active-Ereignis des Tabellenblatts "Zusammenfassung" einfügen:

Code: Visual Basic

1. Private Sub Worksheet_Activate()
2. With Application
3.   .EnableEvents = False
4.   .ScreenUpdating = False
5. End With
6.  
7. zusammenfassung
8.  
9. With Application
10.   .EnableEvents = True
11.   .ScreenUpdating = True
12. End With
13.  
14. End Sub
15.  

Diesen Code in ein Modulblatt einfügen:

Code: Visual Basic

1. Sub zusammenfassung()
2.  
3. Set ws1 = ThisWorkbook.Sheets("Tabelle1")
4. Set ws2 = ThisWorkbook.Sheets("Tabelle2")
5. Set wsz = ThisWorkbook.Sheets("Zusammenfassung")
6.  
7. wsz.Range("A2:A1000").ClearContents
8.  
9.  
10. lz1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
11. lz2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
12.  
13. '** Tabelle 1 kopieren
14. ws1.Select
15. ws1.Range(Cells(2, 1), Cells(lz1, 1)).Copy
16.  
17. wsz.Select
18. wsz.Range("A2").Select
19. wsz.Paste
20.  
21. '** Tabelle 2 kopieren
22. ws2.Select
23. ws2.Range(Cells(2, 1), Cells(lz2, 1)).Copy
24.  
25. wsz.Select
26. wsz.Range("A" & wsz.Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
27. wsz.Paste
28.  
29. Application.CutCopyMode = False
30.  
31. End Sub
32.  

Wie gesagt, als Anlage noch das beigefügte Beispiel. Sobald das Blatt "Zusammenfassung" aufgerufen wird, werden die Inhalte aus Tabelle 1 und Tabelle 2 in das Blatt "Zusammenfassung" übertragen und damit zusammengeführt.

Ich hoffe, das hilft Dir weiter.

Viele Grüße

Officer

[illi]

Guten Morgen Officer,
danke! Das ging ja super flott und passt genau auf meine Bedürfnisse!

So bin ich eine Sorge los heute und kann an der Datei weiterbasteln!

Vielen Dank und einen schönen Tag
LG
Illi