Supportnet / Forum / Tabellenkalkulation

Hallo Excelexperten, wie kann ich den Cursor nach einer Falscheingabe in die ComboBox4 wieder zurück in die ComboBox4 setzen? ComboBox4.SetFocus funktioniert leider nicht! Ich hoffe ihr habt dazu eine Lösung. Gruß fedjo Private Sub ComboBox4_Change() Dim gZelle As Range Dim Msg2$, sBegriff$ Msg2 = "Lagerplatz falsch!" sBegriff = ComboBox4.Value Set gZelle = Sheets("Allgemein").Range("D9:D" & Range("D65536").End(xlUp).Row) _ .Find(sBegriff, lookat:=xlWhole) If gZelle Is Nothing Then MsgBox Msg2 ComboBox4.SetFocus Else gZelle.Select End If End Sub

Hi Fedjo,

nach diesem Prinzip

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If ComboBox1 <> 10 Then Cancel = True
End Sub

Bis später,
Karin

Hi Karin,
danke für die schnelle Antwort.
Wie kann ich deinen Vorschlag in meinen Code einbinden.

Es sollte bei einem Klick in die ComboBox auch eine Funktion ausgeführt werden.
Vielleicht kannst du mir ja noch mal helfen.


Gruß
fedjo

Hi Fedjo,

beide Codes sind unabhängig von einander.

Bis später,
Karin

• Combobox in Excel mit Daten aus Tabellenblatt füllen. Ohne Dubletten!
• Excel benutzen, trotz offener Userform
• VBA - Combobox, UserForm
• Media player starten in userform
• UserForm ComboBox