For Each ctr In UserForm1.Controls
If ctr.Name Like "ComboBox*" Then
For x = 3 To 130
If UserFormDatenauswertung.ComboBox1.Text = Sheets("Übersicht").Cells(x, 2) Then Kriterium(k,i) = x
k=k+1
Next x
i=i+1
End If
Next ctr
Hier sind es drei Variablen:
x wird automatisch hochgezählt
k wenn eine Übereinstimmung gefunden wird
i für jede neue Kombobox
Kriterium(0,0) wäre dann die letzte gefundene Übereinstimmung zum ersten Eintrag der ersten Kombo box.
Kriterium(0,1) dann das Gleiche für die zweite Box.