mit eurer Hilfe entstand folgendes Makro. Danke nochmal.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With TextBox1
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
Es ermoeglicht Sonderzeichen in eine Textbox einzufuegen.
Es klappt problemlos, wenn die TextBox in der Tabelle ist. Sobald ich es auf eine TextBox in der UserForm anwenden will geht nichts.
Hoffe auf den naechsten guten Tipp.
Gruss
Andreas