VBA: Cursor hinter die Einfügung in der Combobox

Computer: Software & Programmierung Visual Basic
1

Hallo,
mit Userform.initialize wird für eine Combobox z.B. vorgeschlagen:

With cboIII2Art
.AddItem "Grundschuld über "
.AddItem "Gesamtgrundschuld über "
.AddItem "Gesamthypothek über "
.AddItem "Hypothek über "
End With
Bei Eingabe von „H“ soll der Cursor automatisch hinter das letzte Leerzeichen "… über " springen. Wie schaffe ich das?
mfg
Wilhelm

2

Hallo

Mit einem Key Event. Beim selektieren der Kombinationsfeldes den Event Deklarieren Application.OnKey „H“, „Funktionen.InsertMenu“ und nach dem Verlassen des Kombinationsfeldes die Application.OnKey „H}“, „“ wieder deaktivieren, an sonsten sprint es immer wieder zum Kombinationsfeld.

Grüsse Sebastian

3

Hallo Struppi977,
leider reichen meine Kenntnisse nicht aus, um Deinen Vorschlag umzusetzen. Trotzdem danke.

Ich habe jetzt ein workaround geschrieben - auch für Freunde im Brett mit einem dem meinen ähnlichen Wissensstand:

Private Sub cboII1Art_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case cboII1Art.Text
Case „Geh-, Fahr- und Leitungsrecht für“
cboII1Art.Text = "Geh-, Fahr- und Leitungsrecht für "
End Select
Das funktioniert, wenn das Additem lautet:
With cboII1Art
.AddItem "Geh-, Fahr- und Leitungsrecht’***also o h n e das Leerzeichen hinter Leitungsrecht!***
End with

mfg
Wilhelm