Hilfe um einen bestehenden Code zu erweitern
Frank
Ich brauche wieder einmal eure Hilfe.
Es wird auf einen Button geklickt um die Daten aus den CheckBoxen 2 - 19 in ein Tabellenblatt zu schreiben, zuvor wird aber geprüft ob ausversehen ein Name doppelt vorkommt. Das mittels folgenden Code:
Dim ii As Integer, oCheck As Object
Set oCheck = CreateObject("Scripting.Dictionary")
For ii = 2 To 19
oCheck(Controls("ComboBox" & ii).Value) = "x"
Next
If oCheck.Count 18 Then
MsgBox "Da stimmt was nicht!", , "Gebe bekannt ..."
Exit Sub
End If
Nun würde ich gern als i-Tüpfelchen, dass wenn ein Wert doppelt vorkommt mir genau dieser Wert angezeigt wird. Also es müssten dann zwei CheckBoxen andersfarbig sein, z.B. rot!!! Ist das realisierbar und wenn ja dann zeigt mir bitte den Weg!!!
Vorab Danke!!!
Gruß Frank H.!!!