Hi,
wie willst du denn etwas anzeigen, wenn du es nicht vorher eingibst? Ich nehme mal an, dass die Falscheinträge dann ausschließlich durch dei Makro erzeugt werden sollen. In dem Fall empfehle ich dir einen benutzerdefinierten Schalter einzubauen. Der angepasste Code könnte z.B. so aussehen:
Dim nurMakro As Boolean
Private Sub coboU1_Change()
If coboU1 <> "" And coboU1.ListIndex = -1 And nurMakro = False Then coboU1 = ""
End Sub
Private Sub UserForm_Initialize()
Dim listArr As Range
Set listArr = Range("A1:A4")
coboU1.List = listArr.Value
nurMakro = True
coboU1.Value = "Bitte wählen Sie"
nurMakro = False
End Sub
Hiermit werden Falscheinträge dargestellt, können aber nicht manuell eingegeben werden. Genaugenommen ist aber eine leere Combobox auch ein Falscheintrag, hier kannst du dir noch überlegen ob du anstelle von "" lieber einen der Einträge zurückgibst.
Gruß Mr. K.
|