Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabulator in UserForm-TextBox simulieren

Gruppe

TextBox

Problem

In einer UserForm-TextBox kann kein Tabulator eingesetzt werden. Kann ich dieses Problem umgehen?

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

ClassModule: frmTabulator

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub spnTabulator_Change()
   txtSpin.Value = spnTabulator.Value
End Sub

Private Sub txtTabulator_KeyDown(ByVal _
   KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = 9 Then
      KeyCode = 0
      txtTabulator.Text = txtTabulator.Text & _
         String(spnTabulator.Value, " ")
   End If
End Sub

StandardModule: basMain

Sub CallForm()
   frmTabulator.Show
End Sub