Application.OnKey
16.11.2015 04:06:32
Rolf.dW
in einem Worksheet habe ich mehrere Ereignisprozeduren:
Private Sub Worksheet_Activate()
Application.OnKey "{CLEAR}", "" 'soll die Funktion der Entf-Taste deaktivieren
End Sub
Private Sub Worksheet_Change(ByVal target As Range)
If activecell.column =10 then Application.OnKey "{CLEAR}" 'soll die Entf-Taste vorübergehend _
wieder aktivieren
Set bereich =
If Intersect(target, bereich) Is Nothing Then Exit Sub
usw. usw.
Application.OnKey "{CLEAR}", "" 'soll die Entf-Taste wieder deaktivieren
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{CLEAR}" 'soll die Funktion der Entf-Taste wieder aktivieren
End Sub
Nicht einmal Application.OnKey "{CLEAR}", "" funktioniert! Kann mir jemand helfen?
Gruß, Rolf
