Office: UserForm ComboBox nur gültige Werte zulassen

djell · 8. Februar 2012

Hallo Leute,

ich breuchte in einer Userform bei einer ComboBox die möglichkeit das wenn ein Benutzer einen Wert der nicht in der Liste vorkommt eingibt, eine kurze meldung kommt, zB. "Wert nicht vorhanden" und dann die Combobox wieder ausgewählt ist wo die falsche eingabe rausgelöscht ist! Ist das irgendwie möglich?

:)

Rudi Maintaire · 9. Februar 2012

Hallo,
setze in den Eigenschaften der CB MatchRequired auf TRUE.

Gruß
Rudi

djell · 9. Februar 2012

Das hab ich schon Gemacht.
Aber da löscht er mir dann nicht den den falschen wert der ja noch drin steht raus. Wie geht das?

Rudi Maintaire · 10. Februar 2012

Hallo,
einspaltige Cbx?
Code:

Dim blnCode As Boolean

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim vntList
If Not blnCode Then
vntList = ComboBox1.List
vntList = WorksheetFunction.Transpose(vntList)
If IsError(Application.Match(ComboBox1, vntList, 0)) Then
blnCode = True
Cancel = True
ComboBox1 = ""
MsgBox "Falsch!", , "Fehler"
blnCode = False
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Rudi

EarlFred · 10. Februar 2012

Hallo djell,

die Eigenschaft MatchFound könntest Du ebenfalls abfragen.

Grüße
EarlFred

Rudi Maintaire · 10. Februar 2012

Hallo,
die Eigenschaft MatchFound war wir bis jetzt unbekannt. Waddetnichalletgibt.
Ist natürlich viel einfacher als mein Konstrukt.
Ergo:
Code:

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not ComboBox1.MatchFound Then
Cancel = True
ComboBox1 = ""
MsgBox "Falsch!", , "Fehler"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Rudi

EarlFred · 10. Februar 2012

\@Rudi,

ich bin auch immer wieder erstaunt, was es im weitläufigen VBA-Keller für kleine Schätzchen (unter mehr oder minder dicken Staubschichten) zu entdecken gibt. *wink.gif* Diese Eigenschaft gehört auch bei mir zu den jüngeren Entdeckungen, die ich per Zufall beim Suchen nach etwas ganz anderem gefunden habe. *biggrin.gif*
Man beschäftigt sich doch nicht immer mit allem...

Grüße
EarlFred

djell · 12. Februar 2012

Hallo Leute,

Ja so bekomm ich das jetzt hin!
Vielen Dank für Eure hilfe!

Hasso · 13. Februar 2012

ich breuchte in einer Userform bei einer ComboBox die möglichkeit das wenn ein Benutzer einen Wert der nicht in der Liste vorkommt eingibt, eine kurze meldung kommt, zB. "Wert nicht vorhanden" und dann die Combobox wieder ausgewählt ist wo die falsche eingabe rausgelöscht ist! Ist das irgendwie möglich?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Warum nimmst du dann überhaupt eine ComboBox und nicht eine ListBox - dann kann man doch nur die vorgegebenen Werte auswählen.*confused.gif* *confused.gif*

Office: UserForm ComboBox nur gültige Werte zulassen

UserForm ComboBox nur gültige Werte zulassen

UserForm ComboBox nur gültige Werte zulassen

UserForm ComboBox nur gültige Werte zulassen

UserForm ComboBox nur gültige Werte zulassen

UserForm ComboBox nur gültige Werte zulassen - Similar Threads - UserForm ComboBox gültige

Userform Textfeld füllen abhängig von Wert aus Combobox

Monat über Combobox auswählen Kalenderdaten im Userform anzeigen

Combobox in Userform füllen

UserForm - Combobox/Commandbutton

Userform: der Inhalt in einer Combobox soll den Inhalt einer Listbox beeinflussen

UserForm ComboBox zeigt Inhalt nicht an

ComboBox in UserForm einblenden / ausblenden - Makro