in einer UF habe ich 16 Comboboxen (ComboBox1 bis 16) die alle automatisch nach Bedingungen gefüllt weden. Wie kann ich kontrollieren ob ein Eintrag in mehr als ein ComboBox nach dem Befüllen vorkommt.
Gruß
Martin
Private Sub btnOK_Click()
Dim cboEingabe(1 To 16) As MSForms.ComboBox
Dim i As Long
Dim j As Long
Set cboEingabe(1) = ComboBox1
Set cboEingabe(2) = ComboBox2
Set cboEingabe(16) = ComboBox16
For i = 1 To 16
For j = i + 1 To 16
If cboEingabe(i) = cboEingabe(j) Then
MsgBox "Gleicher Eingabewert in " & i & " und " & j
Exit Sub
End If
Next j
Next i
' Start der Verarbeitung
End Sub
Viele Grüße