VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren

Gruppe

Dialog

Bereich

TextBox

Thema

Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox