Wenn die ESC-Taste gedrückt wird ruft es die Funktion "HideAllWindows" auf:
Application.OnKey "{ESC}", "HideAllWindows"
Funktion "HideAllWindows" setzt den Kalender auf unsichtbar.
Public Sub HideAllWindows()
Calendar1.Visible = False
End Sub
die Funktion funktioniert wenn ich sie selbst als Macro aufrufe. OnKey funktioniert, da die ESC-Taste erkannt wird.
PROBLEM: wenn ich ESC drücke behauptet Excel immer wieder dass es das Macro HideAllWindows nicht finden kann und ich weiss nicht warum.