Habe folgendes Problem:
Ich will in eine TextBox, die sich in der Tabelle befindet, mittels bestimmter Tastenkombinationen Symbole bzw. Sonderzeichen einfuegen koennen.
Dabei soll mit der Tastenkombination Ctrl+r das “®” Symbol und mit der Tastenkombination Ctrl+t das “™” Symbol eingefuegt werden.
Mit dem folgenden Code hab ich versucht das Problem zu loesen. Die beiden Sonderzeichen habe ich in zwei Zellen (A1 und A2) hinterlegt und diese dann ausgeblendet.
Bei der entsprechenden Tastenkombination soll nun das Sonderzeichen aus der entsprechenden Zelle an den Text in der TextBox angefuegt werden.
Allerdings weiss ich nicht, mit welchem KeyCode ich die Ctrl Taste + den entsprechenden Buchstaben belegen kann.
Private Sub TextBox1_KeyDown(ByVal KeyCode As _
MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 17 Then
TextBox1.Text = TextBox1.Text + _
Range("A1").Value
End If
If KeyCode = 20 Then
TextBox1.Text = TextBox1.Text + _
Range("A2").Value
End If
End Sub
Kann mir da jemand helfen?
Oder gibt es zu diesem Problem eine komplett andere Loesung?
Vielen Dank im Voraus.
Andreas