Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle gesetzten Application.OnKey gemeinsam löschen

Forumthread: Alle gesetzten Application.OnKey gemeinsam löschen

Alle gesetzten Application.OnKey gemeinsam löschen
Martin
Hallo an alle,
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: vielleicht hilft das Archiv
31.05.2011 19:36:47
Martin
Hallo Erich,
danke für den Code. Prinzipiell wäre das ein Lösungsansatz, um die benutzerdefinierten Tastenkombinationen nicht alle manuell löschen zu müssen. Der Suchtext "Tastenkombination:" müsste dafür nur durch "Application.OnKey" ersetzt werden. Mir ist noch eine andere Idee gekommen, wie alle benutzerdefinierten Tastenkombinationen mit nur 4 Zeilen VBA-Code aufgehoben werden können. Allerdings müssen diese alle manuell eingetragen werden:
        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.
Viele Grüße
Martin
Anzeige
AW: vielleicht hilft das Archiv
02.06.2011 12:57:46
Martin
Hallo Reinhard,
vielen Dank für den interessanten Link. Leider das hat Makro keine Auswirkung auf Sondertasten (Funktionstasten usw.). Aber bei Verwendung von sehr vielen Buchstaben-Tastenkombinationen ist das "AlleEin"-Makro zum Zurücksetzen auf die Standard-Tastenkombis sehr hilfreich.
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
Martin
Anzeige
AW: vielleicht hilft das Archiv
02.06.2011 22:51:09
Reinhard
Hallo Martin,
okay, in Open Office habe ich die unbelegte F3-taste umfunktioniert sodaß sie dann das macht was in Excel die Tastenkomination Strg+# erledigt also in Formelansicht gehen und zurück., also toggeln.
In Excel sah ich noch keine Notwendigkeit die Funktionstasten neu zu belegen, aber okay.
Ich sehe keine Probleme in den Code noch zu integrieren daß das auch für F1-F12 geschieht, also mit Strg, Alt oder ohne.
Anderes mußt du wohl in ein Array im Code manuell reinschreiben wie Enter, PgUp usw.
Aber soviele sind's ja auch nicht.
Kriegste das hin?
Gruß
Reinhard
Anzeige
AW: vielleicht hilft das Archiv
05.06.2011 22:38:00
Martin
Hallo Reinhard,
klar bekomme ich das hin. Vielen Dank für deine Mühe (...und das, obwohl dieser Thread schon einige Tage alt ist).
Viele Grüße
Martin
;
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige