fehlerhafte Eingabe farblich markieren
17.06.2017 08:05:11
Matze
Hallo liebe VBA-Spezialisten.
Ich habe ein kleines Problem mit einem Code. Er macht nicht, was ich will, irgendwo ist da noch ein Fehler drin. Bestimmt seht Ihr das auf den ersten Blick :)
Folgendes soll passieren:
Auf dem Arbeitsblatt "Daten" in der Spalte 5 stehen eingegebene Daten. Diese sollen mit einer Definierten Liste aus zulässigen Daten abgeglichen werden, diese Steht auf dem Datenblatt "Vergleich" in Spalte 2.
Wenn also kein Treffer erzielt wurde, soll der geprüfte Wert rot eingefärbt werden.
Leider klappt das mit der Färbung nicht, ich vermute dort liegt ein Syntax-Problem vor.
Dim rngQuelle As Range
Dim rngZiel As Range
'Fehlerhafte Ergebnisse markieren
With ThisWorkbook.Sheets("Daten").Columns(5)
For Each rngZiel In .Columns(5)
On Error Resume Next
Set rngQuelle = ThisWorkbook.Sheets("Vergleich").Columns(2).Find(what:=rngZiel)
On Error GoTo 0
If Not rngQuelle Is Nothing Then
rngZiel.Font.ColorIndex = 3
End If
Next
End With