AW: Tabellen zusammenfassen
29.12.2020 17:04:20
Yal
Hallo Burghard,
Sub Zusammenfassen()
Dim i, E
Dim C As New Collection
On Error Resume Next
' Tabelle 1
With ThisWorkbook.Worksheets("Tabelle1")
For i = 2 To .Range("A5000").End(xlUp).Row
C.Add .Cells(i, 1), .Cells(i, 1)
Next
End With
' Tabelle 2
With ThisWorkbook.Worksheets("Tabelle2")
For i = 2 To .Range("A5000").End(xlUp).Row
C.Add .Cells(i, 1), .Cells(i, 1)
Next
End With
' Zielbereich leeren
ThisWorkbook.Worksheets("Zusammenfassung").Range("A2:A5000").ClearContents
' Ausgeben
i = 2
For Each E In C
ThisWorkbook.Worksheets("Zusammenfassung").Cells(i, 1) = E
i = i + 1
Next
End Sub
Es wird ausgenutzt, dass in einer Collection ein Schlüssel nicht doppelt sein darf. Da der Versuch, ein zweite Mal den Schüssel zu verwenden ein Fehler wirft, macht man das gesamt mit
On Error Resume Next
"Fehlertolerant".
Sollte aber irgendwo eine Fehler geben, wird diese nicht angezettelt.
Viel Erfolg
Yal