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.