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üßeDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen