Werte durchsuchen und überprüfen mit VBA
29.09.2022 18:08:53
ttheon
Ich versuche mir selber Excel VBA beizubringen und hänge seit einigen Tagen an diesem Problem und sehe leider keine Fortschritte. Unzwar habe ich drei verschiedene Registerkarten ("Name", "Adresse" & "Vergleich"). Diese haben jeweils alle eine Nummer in Spalte A. In der ersten Tabelle "Name" stehen in Spalte B Namen und in der zweiten Tabelle "Adresse" stehen in Spalte B die Adressen. Die Reihenfolgen sind alle verschieden. In der letzten Tabelle "Vergleich" sind die Nummern, Namen und Adressen, und mit Absicht sind zwei Adressen vertauscht.
Ich füge unten ein Bild zu den Tabellen hinzu.
Ich würde gerne anhand der Nummern die Namen und Adressen in der Tabelle "Vergleich" überprüfen und in der Spalte E diese dann ausgeben lassen, ob diese übereinstimmen oder nicht. Dafür werden die Nummern der Tabelle "Vergleich" in den anderen Tabellen durchsucht und wenn diese gefunden wurde, soll diese anschließend nach der Übereinstimmung der Namen und der Adressen überprüfen.
Eventuell auch, falls die Namen oder Adressen nicht übereinstimmen, dass diese angeben kann, welche von den nicht gleich ist und in einer weiteren Spalte angezeigt wird.
Das ist mein Code gerade:
Sub Test()
Dim i As Integer
Dim suchen As Range
For i = 2 To 11 'Wiederholen für nächsten 10 Zeilen
Set suchen = Cells(i, 1)
If Cells(i, 1) = Worksheets("Name").Cells(i, 1) = Worksheets("Vergleich").Cells(i, 1) Then
Range("E" & i).Interior.Color = vbGreen
Else: Range("E" & i).Interior.Color = vbRed
End If
Next i
End Sub
Vielen Dank!
Bild zu Tabellen: https://www.herber.de/bbs/user/155460.png
