Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren

Gruppe

TextBox

Problem

Wie kann ich die einzelnen Zeichen einer UserForm-TextBox entsprechend den gewählen ScrollBar-Werten markieren lassen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmSelect

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub scbSelect_Change()
   scbSelect.SetFocus
   txtSelect.SelStart = scbSelect.Value
   txtSelect.SelLength = 1
   txtSelect.SetFocus
End Sub

Private Sub UserForm_Initialize()
   scbSelect.Max = Len(txtSelect.Text) - 1
End Sub

StandardModule: basMain

Sub CallForm()
   With frmSelect
      With .txtSelect
         .SetFocus
         .SelStart = 0
         .SelLength = 1
      End With
      .Show
   End With
End Sub