In einer Userform (UF) befinden sich folgende Objekte:
1. Textbox1 enthält einen String
2. Textbox2 enthält nur Zahlen (Min = 1, Max = Len(Textbox1.Value)
3. Scrollbar (Min = 1, Max = Len(Textbox1.Value)
Über die Scrollbar regel ich welcher Character in Textbox1 selectiert werden soll, gleichzeitig wird die Position des selektierten Characters der Textbox1 in Textbox2 angezeigt.
Dazu verwende ich folgendes (funktionierendes) Makro:
~begin~
Private Sub scrB_Change()
Textbox2.Value = scrB.Value
scrB.Value.SetFocus
Textbox1.SelStart = scrB.Value - 1
Textbox1.SelLength = 1
Textbox1.SetFocus
End Sub
~ende~
Nun habe ich vergeblich viel Zeit investiert, um über eine Eingabe in Textbox2 die Position des selektierten Characters der Textbox1 anzuzeigen und gleichzeitig die Werte für die Scrollbar nachzuführen.
Bitte um Hilfe zur Lösung dieses Problems.
Ist es möglich in Textbox1 einen Bereich farblich zu unterlegen (selektieren) aber gleichzeitig den Focus auf ein anderes Objekt in der UF zu setzen?
Gruß Rainer