gibt es eine Möglichkeit alle von mir über VBA gesetzten Application.OnKey auf einen Schlag zu entfernen oder muss ich zwangsläufig jede von mir gesetzte Tastenkombination einzeln zurücksetzen?
Viele Grüße
Martin
For i = 1 To 11
n = Choose(i, "{HOME}", "^a", "^d", "^i", "^l", "^e", "^f", "^m", "^{TAB}", "%s")
Application.OnKey n
Next i
Ich lasse die Frage mal offen, mal sehen ob bessere Ideen kommen.Sub AlleEin()
Dim i As Integer
On Error Resume Next
For i = 1 To 256
Application.OnKey "^{" & i & "}" 'Strg
Application.OnKey "%{" & i & "}" 'Alt
Application.OnKey "^%{" & i & "}" 'Strg-Alt
Next i
End Sub
Viele Grüße