Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einfügen eines Sonderzeichens in einer UserForm-TextBox

Gruppe

TextBox

Problem

An der Schreibposition des Cursors in einer UserForm-TextBox soll ein Sonderzeichen eingefügt werden.

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

ClassModule: frmInsert

Dim blnCtrl As Boolean

Private Sub txtInsert_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   With txtInsert
      If KeyCode = 17 Then
         blnCtrl = True
      ElseIf KeyCode = 82 And blnCtrl Then
         .Text = Left(.Text, .SelStart) & Chr(174) & Right(.Text, Len(.Text) - .SelStart)
         blnCtrl = False
      ElseIf KeyCode = 84 And blnCtrl Then
         .Text = Left(.Text, .SelStart) & Chr(153) & Right(.Text, Len(.Text) - .SelStart)
         blnCtrl = False
      Else
         blnCtrl = False
      End If
   End With
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   txtInsert.SelStart = 4
End Sub
StandardModule: Modul1

Sub CallForm()
   frmInsert.Show
End Sub