Excel, Strasse vergleichen

Question

Hallo erstmal,

ich habe nun von Excel überhaupt keine Ahnung und möchte folgendes machen. Ich habe 2 Tabellen mit jeweils ca. 1600 Datensätzen welche sich auch nur in einer Spalte befinden aber leider nicht in den gleichen Zeilen. Es handelt sich hier lediglich nur um Strassennamen. GIbt es eine Funktion, mit welcher man berechnen kann, ob beide Tabellen die selben Datensätze haben? Wenn eine Tabelle keine Datensätze der anderen hat, geht es dies in einer neuen Tabelle auszugeben?

Schon mal vielen Dank für den Support!

MfG,
manyana

Answer 1

Hallo many,

mal paar VBA Ansätze. Tabele vergleichen Link zur Datei

Gruß Hajo

Answer 2

Hallo Hajo,

danke schön für den Hinweis aber habe ich mir schon angeschaut, das einzige Makro (Makto 4) was eigentlich auch einen kompletten Vergleich von Bereichen in einer Tabelle unterstützt, markiert lediglich Datensätze die es in beiden Bereichen gibt, ich benötige es aber genau andersrum, Datensätze die es nicht in beiden Bereichen gibt :(

Zum "umschreiben" des Makros reichen leider meine Kenntnisse nicht aus...

Viele Grüße,
manyana

Answer 3

Hallo manyana,

vielleicht so
Sub Tabellen_Vergleich04_2()
' es werden nur die markiert die im anderem Bereich nicht vorhanden sind
'**************************************************
'* H. Ziplies *
'* 11.01.10 *
'* http://Hajo-Excel.de/ *
'**************************************************
Dim RaZelle2 As Range ' Variable Bereich 2
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
With Worksheets("Tabelle4")
For Each RaZelle2 In .Range("G10:G40") ' 1. Schleife alle Zellen Bereich2
If Application.CountIf(.Range("B10:B40"), RaZelle2) = 0 And RaZelle2 <> "" Then RaZelle2.Interior.ColorIndex = 6
Next RaZelle2
For Each RaZelle2 In .Range("B10:B40") ' 1. Schleife alle Zellen Bereich2
If Application.CountIf(.Range("G10:G40"), RaZelle2) = 0 And RaZelle2 <> "" Then RaZelle2.Interior.ColorIndex = 6
Next RaZelle2
End With
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein
End Sub

Gruß Hajo

Answer 4

Hallo Hajo,

vielen vielen herzlichen Dank, das Makro funktioniert sehr gut, danke schön!

Viele Grüße,
manyana

Answer 5

Hallo manyana,

Danke für die Information, das Beispiel habe ich in meiner Datei ergänzt.

Gruß Hajo