ComboBox Auswahl entfernen

28/07/2009 - 10:18 von Mike Berger | Report spam
Hallo zusammen,

ich habe zwei ComboBoxen auf einer UserForm.
Diese benötige ich zum suchen in den Spalten B und K.
Den Eigenschaftswert MatchRequired = True habe ich gesetzt, damit
keine Fehlermeldung beim "nicht gefunden" kommt.

Nun habe ich aber das Problem, wenn ich nun in der zweiten Suche nur
nach K suchen möchte, möchte ich den aktuellen Inhalt der ComboBox
entfernen, wenn ich nun den Inhalt manuell entferne kommt die
Fehlermeldung Ungültiger Eigenschaftswert.

Das wollte ich abfangen mit:

Private Sub cboNachname_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If cboNachname.Text = "" Then
cboNachname.MatchRequired = False
Else
cboNachname.MatchRequired = True
End If
End Sub

Die Fehlermeldung kommt jedoch weiterhin.

Wie kann ich den dieses Feld "leeren", ohne die Auswahlliste zu
entfernen.

Danke Euch.

Mike
 

Lesen sie die antworten

#1 Wolfgang Habernoll
28/07/2009 - 11:09 | Warnen spam
Hallo MIke

"Mike Berger" schrieb im Newsbeitrag
news:
Hallo zusammen,

ich habe zwei ComboBoxen auf einer UserForm.
Diese benötige ich zum suchen in den Spalten B und K.
Den Eigenschaftswert MatchRequired = True habe ich gesetzt, damit
keine Fehlermeldung beim "nicht gefunden" kommt.

Nun habe ich aber das Problem, wenn ich nun in der zweiten Suche nur
nach K suchen möchte, möchte ich den aktuellen Inhalt der ComboBox
entfernen, wenn ich nun den Inhalt manuell entferne kommt die
Fehlermeldung Ungültiger Eigenschaftswert.

Das wollte ich abfangen mit:

Private Sub cboNachname_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If cboNachname.Text = "" Then
cboNachname.MatchRequired = False
Else
cboNachname.MatchRequired = True
End If
End Sub

Die Fehlermeldung kommt jedoch weiterhin.

Wie kann ich den dieses Feld "leeren", ohne die Auswahlliste zu
entfernen.




versuche es mit deinem Code und dem Change Ereignis.
Private Sub cboNachname_Change()
If cboNachname.Text = "" Then
cboNachname.MatchRequired = False
Else
cboNachname.MatchRequired = True
End If
End Sub


mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen