Mit dem folgenden Skript gelingt es mir Sonderzeichen mittels bestimmter Tastenkombinationen in die TextBox einzufuegen. Das Problem dabei aber ist das diese Sonderzeichen immer an das Ende vom Text angefuegt werden.
Gibt es eine Moeglichkeit diese immer da einzufuegen, wo sich gerade die Einfuegemarke befindet?
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 17 Then
Ctrl = True
Else
If KeyCode = 82 And Ctrl Then
TextBox3.Text = TextBox3.Text & Chr(174)
Ctrl = False
Else
If KeyCode = 84 And Ctrl Then
TextBox3.Text = TextBox3.Text & Chr(153)
Ctrl = False
Else
Ctrl = False
End If
End If
End If
End Sub
Bin fuer jegliche Hilfe dankbar.
Gruss
Andreas