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
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
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