Hallo,
ich habe wieder einmal ein Problem mit dem ich nicht klar komme!
Auf einer UserForm sind 5 ComboBoxen die mit den Werten (5,15,35,60,85) aus einer Tabelle beim Aufruf befüllt werden. Wenn die Werte geändert werden, soll überprüft werden, ob der Wert der ersten ComboBox kleiner ist als der Wert der Zweiten usw. (ComboBox_1 < ComboBox_2 < ComboBox_3 < ComboBox_4 < ComboBox_5).
Bei dem nachfolgenden Code springt er im ersten Schritt immer in den Else Zweig bei den Werten 5 und 15 und gibt die MsgBox aus! Bei den restlichen Werten funktioniert alles 1A! Rückwärts laufen lassen, habe ich es auch schon versucht (For i = 5 To 2 Step-1 mit für die ComboBox_i-1), bringt genau das gleiche Ergebnis.
Beim Überprüfungsausdruck sehe ich sogar die Werte 5 und 15 im ersten Schritt.
Für Tipps wäre ich sehr dankbar!
Lg
Markus
For i = 1 To 4
If RMS_Einstellungen.Controls("ComboBox_" & i).Value < _
RMS_Einstellungen.Controls("ComboBox_" & i + 1).Value Then
Else
MsgBox "Der Wert für '" & RMS_Einstellungen.Controls("Label_" & i + 1).Caption _
& "' muss größer sein, als für '" & _
RMS_Einstellungen.Controls("Label_" & i).Caption & "'!"
überprüfen = 1
End If
Next i