So, dass is jetzt der Stand der Dinge...
Dim Kriterium(9) 'legt ein Datenfeld mit 10 freien Plätzen an (0-9)
For Each ctr In UserFormDatenauswertung.Controls
If ctr.Name Like "ComboBox*" Then
For k = 1 To 9
For x = 3 To 130
If ctr.Text = Sheets("Übersicht").Cells(x, 2) Then Kriterium(k) = x
k = k + 1
Next x
x = x + 1
Next k
End If
Next ctr
---
das mit dem k+1 und dem x+1...weiß ich jetzt nicht genau, ob man das braucht...dachte, der zählt auch so hoch.
Aber wir haben hier noch das Problem, nichteinmal in die Schleife reingeht (Bedingung ist nie erfüllt)
Obwohl unsere Comboboxen hier von "ComboBox_1" - "ComboBox_9" gehen...
Gibts da noch ne andere Möglichkeit um die 9 nacheinander abzuarbeiten?
----
Nur so zur Info:
Ziel der Aufgabe ist es die Inhalte der ComboBoxen mit einer Tabelle abzugleichen und dann für "Kriterium(1)" - "Kriterium(9)" Werte zuzuweisen.
Die Abfrage auf dem Tabellenblatt geht von 3-130.
Hoff man blickt jetzt durch.
gruß mic;)
|