Pfeiltaste per VBA ansprechen
30.12.2019 13:58:46
Ernst
Ich benötige Eure Hilfe.
Mit dem unten stehenden Code füge ich ein Kürzel ein.
Nun möchte ich nicht die Zahlentastatur hierfür verwenden, sondern die Pfeiltastatur, d.h., anstelle
der Zahlentaste z.B. 8 die Pfeiltaste nach oben und dadurch soll "o" eingefügt werden.
Bitte um Hilfe
mfg
Ernst Dunkel
Dim r As Integer
Dim c As Integer
For r = Target.Row To Target.Row + Target.Rows.Count - 1
For c = Target.Column To Target.Column + Target.Columns.Count - 1
If c = 2 And r > 19 And r Application.EnableEvents = False
If Cells(r, c) = "8" Then Cells(r, c) = "o"
If Cells(r, c) = "2" Then Cells(r, c) = "u"
If Cells(r, c) = "4" Then Cells(r, c) = "l"
If Cells(r, c) = "6" Then Cells(r, c) = "r"