Bug oder nicht Bug,
das ist hier nicht die Frage
Ich würde es mal mit folgendem Code probieren:
----------------------------------------------
Private Sub cboLieferant_Change()
If Me.cboLieferant.Text <> "" Then
cboKontakt.Enabled = True
Else
cboKontakt.Enabled = False
End If
End Sub
----------------------------------------------