VBA-Programmierung in Microsoft Excel

Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren

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