Hallo zusammen
Vergleiche und Entscheidungen funktionierten nicht. Eine Variante funktioniert, aber ich möchte wissen, warum die andere Lösung nicht funktioniert..
Die Funktion ist folgende: Aus einer Reihe von Werten sollen diese einer Gruppe zugeteilt werden. Die Werte sind in einer ComboBox aufgelistet. Abhängig wie die ComboBox intialisiert, funktioniert die Selektion oder eben nicht. Wenn die ComboBox aus einer Liste initialisiert wird. funktioniert die Selektion nicht. Wenn die ComboBox mit .AddItem gefüllt wird, funktioniert die Selektion. Der Programmcode ist praktisch identisch, Stimmt etwa mit Variablentypen nicht? Note 9.75 müsste immer ein Pluszeichen ausgeben.
Auch in der folgenden Codesequenz habe ich ein Problem erlebt.
Schönen Abend und Schöne Grüss
Fritz
Vergleiche und Entscheidungen funktionierten nicht. Eine Variante funktioniert, aber ich möchte wissen, warum die andere Lösung nicht funktioniert..
Die Funktion ist folgende: Aus einer Reihe von Werten sollen diese einer Gruppe zugeteilt werden. Die Werte sind in einer ComboBox aufgelistet. Abhängig wie die ComboBox intialisiert, funktioniert die Selektion oder eben nicht. Wenn die ComboBox aus einer Liste initialisiert wird. funktioniert die Selektion nicht. Wenn die ComboBox mit .AddItem gefüllt wird, funktioniert die Selektion. Der Programmcode ist praktisch identisch, Stimmt etwa mit Variablentypen nicht? Note 9.75 müsste immer ein Pluszeichen ausgeben.
Auch in der folgenden Codesequenz habe ich ein Problem erlebt.
Wenn ich (Val(NoteB.Value)) durch Variable ‘Note’ (=Val(NoteB.Value)) ersetze, erhalte die gleichen Fehler (falsche Ergebnisse). NateA, B, ResultatA, B sind allesammt ComboBoxen.Dim Note As Variant
Note = Val(NoteB.Value)
ResultatB.Value = "" ' löschen
If ((Val(NoteB.Value) <= "10") And (Val(NoteB.Value) >= "9.5")) Then
If ResultatA.Value <> "o" Then
MsgBox "Resultate nicht verträglich. Prüfen!", vbExclamation
' OR vbCritical
Else
ResultatB.Value = "+"
End If
End If
Schönen Abend und Schöne Grüss
Fritz