Application.OnKey "{Del}"
19.07.2016 21:25:26
Jens
Ich kriege eine Schleife nicht hin und bitte um Hilfe (falls es überhaupt geht):
Aufgabe: Wenn der User im Bereich A1:A3 "ENTF" drückt, soll in die aktive Zelle dieses Bereichs ein "zzz" gesetzt werden.
Im Tabellenblatt steht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
Application.OnKey "{del}", "zzz"
Else
Application.OnKey "{del}"
End If
End Sub
Im Modul1 steht:
Sub zzz()
ActiveCell.Value = "zzz"
End Sub
Mein Problem besteht jetzt darin, dass beim Drücken von ENTF im Bereich A1:A3 ein "zzz" in die Zellen geschrieben wird, aber AUCH in anderen Bereichen (außerhalb), wenn anschließend dort ENTF gedrückt wird. Klickt man danach wieder im Bereich A1:A3 auf ENTF passiert nichts.
Wie muss eine Schleife aussehen, geht das überhaupt oder kann man es anders lösen?
Danke schon mal.
Jens