Doppelte Werte suchen/prüfen/Nachricht
15.06.2022 12:08:34
SN07
ich habe das Problem, dass bei meiner Abfrage über VBA auf doppelte Werte zwar die Werte markiert werden, ich bei einer IF Abfrage aber meine farbliche Änderung nicht finde.
'Prüfung doppelte Werte
Columns("F:F").Select
Range("F7").Activate
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Interior
.Color = vbRed
End With
Selection.FormatConditions(1).StopIfTrue = False
found = False
For Each Zelle In Range("F2:F" & Ende)
If Zelle.Interior.Color = vbRed Then
found = True
Else
End If
If found = True Then
Text = MsgBox("Doppelte Werte gefunden, bitte prüfen!", vbOKOnly)
GoTo Line4
Else
End If
Next Zelle
Danke