ComboBox Auswahl entfernen
Mike Berger
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
Wolfgang Habernoll
>"Mike Berger" <mike_...@arcor.de> schrieb im Newsbeitrag
>news:b750ab64-0115-459a...@d4g2000yqa.googlegroups.com...
>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 ]
Mike Berger
das hat prima funktioniert. Das Change Ereignis war es :-)
Vielen Dank.
Mike
On 28 Jul., 12:09, "Wolfgang Habernoll" <wolfgang.habern...@t-
online.de> wrote:
> Hallo MIke
>
>
>
>
>
> >"Mike Berger" <mike_ber...@arcor.de> schrieb im Newsbeitrag
> >news:b750ab64-0115-459a...@d4g2000yqa.googlegroups.com...
> >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 ]- Zitierten Text ausblenden -
>
> - Zitierten Text anzeigen -