Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: illi am Dezember 01, 2011, 07:35:09 Vormittag

Titel: 2 Listen zusammenführen in einer Tabelle
Beitrag von: illi am Dezember 01, 2011, 07:35:09 Vormittag
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
Titel: Antw:2 Listen zusammenführen in einer Tabelle
Beitrag von: Officer am Dezember 01, 2011, 08:49:39 Vormittag
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
Titel: Antw:2 Listen zusammenführen in einer Tabelle
Beitrag von: illi am Dezember 01, 2011, 09:16:48 Vormittag
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