Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon fedjo vom 26.04.2020, 09:15 Options
UserForm ComboBox
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
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
Antwort 1 von Beverly vom 26.04.2020, 10:27 Options
Hi Fedjo,
nach diesem Prinzip
Bis später,
Karin
nach diesem Prinzip
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1 <> 10 Then Cancel = True
End Sub
Bis später,
Karin
Antwort 2 von fedjo vom 26.04.2020, 14:30 Options
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
Vielleicht kannst du mir ja noch mal helfen.
Gruß
fedjo
danke für die schnelle Antwort.
Wie kann ich deinen Vorschlag in meinen Code einbinden.
Es sollte bei einem Klick in die ComboBox
Zitat:
Private Sub ComboBox4_Change()
auch eine Funktion ausgeführt werden. Private Sub ComboBox4_Change()
Vielleicht kannst du mir ja noch mal helfen.
Gruß
fedjo
Ähnliche Themen
Combobox in Excel mit Daten aus Tabellenblatt füllen. Ohne Dubletten!
40Rainer 16.06.2007 - 412 Hits - 7 Antworten
Excel benutzen, trotz offener Userform
BlauLED 22.10.2007 - 161 Hits - 1 Antwort
VBA - Combobox, UserForm
Tomschi 28.11.2007 - 197 Hits - 4 Antworten
Media player starten in userform
jenkins 15.01.2008 - 54 Hits -
UserForm ComboBox
fedjo 20.05.2008 - 190 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
