Hallo Profis,
hab mit Hilfe des Forums folgenden Code gebastelt:
Private Sub ComboBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(ComboBox14.Value) And ComboBox14.Value "" Then
Application.EnableEvents = False
ComboBox14.Value = "Halt!"
MsgBox "Du sollst doch Zahlen eingeben " + Chr(10) + "und nicht Salat und Käse"
Cancel = True
ComboBox14.Value = 0
Application.EnableEvents = True
ComboBox14.SetFocus
End If
Label27.Visible = True
Label36.Visible = True
ComboBox15.Visible = True
Ich möchte hier Werte abprüfen und mit dem Cursor wieder in die Eingabe der Combobox14
stehen.
Die Prüfung klappt ja aber es wird immer die Combobox 15 angezeigt.
Wie müßte der Code richtig lauten ?
Gruss Ludicla.