Ich habe eine kurze Frage!
Wie kann ich eine Tastenkombination mithilfe eines makros ausführen.
Hintergrund: Ich will ein Button welcher das Hyperlink Menü öffnet (STRG + K) in mein Blatt integrieren
Viele Grüße und Danke schonmal,
daniele
Sub Test()
' Test Macro
' Macro registrata il 28/02/2006 da JMR
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
<a href=""http://www.spiegel.de/"">"http://www.spiegel.de/"</a>
End Sub
Um eine Tastenkombination mithilfe von VBA auszuführen, befolge diese Schritte:
Öffne den VBA-Editor: Drücke ALT + F11
, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen
und wähle Modul
.
Gib den folgenden Code ein: Dieser Code führt die Tastenkombination für das Öffnen des Hyperlink-Menüs (STRG + K
) aus.
Sub HyperlinkMenu()
Application.SendKeys "^k"
End Sub
Schließe den VBA-Editor: Speichere deine Änderungen und schließe das Fenster.
Verknüpfe das Makro mit einem Button: Füge einen Button in dein Excel-Blatt ein und weise das Makro HyperlinkMenu
zu.
Jetzt kannst du den Button nutzen, um die Tastenkombination auszuführen.
Fehler: Makro kann nicht ausgeführt werden
Datei
> Optionen
> Trust Center
> Einstellungen für das Trust Center
und aktiviere die Makrooptionen.Fehler: SendKeys funktioniert nicht
SendKeys
benötigt den Fokus auf das aktive Fenster.Falls du eine andere Methode zur Ausführung von Tastenkombinationen bevorzugst, kannst du die Application.OnKey
Methode verwenden. Damit kannst du eine spezifische Tastenkombination direkt mit einem Makro verknüpfen.
Beispiel:
Sub AssignShortcut()
Application.OnKey "^k", "HyperlinkMenu"
End Sub
Mit diesem Makro wird die Tastenkombination STRG + K
direkt mit dem HyperlinkMenu
Makro verknüpft.
Beispiel 1: Erstelle ein Makro, das eine URL in eine Zelle einfügt und das Hyperlink-Menü öffnet.
Sub AddHyperlink()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.spiegel.de", TextToDisplay:="Spiegel"
Application.SendKeys "^k"
End Sub
Beispiel 2: Du kannst eine Tastenkombination erstellen, um ein Makro schnell auszuführen:
Sub QuickMacro()
' Dein Makro-Code hier
End Sub
Sub AssignQuickShortcut()
Application.OnKey "^m", "QuickMacro"
End Sub
SendKeys
sparsam: Diese Methode kann unzuverlässig sein, vor allem, wenn mehrere Anwendungen geöffnet sind.1. Wie kann ich ein Makro mit einer bestimmten Tastenkombination starten?
Du kannst die Application.OnKey
Methode verwenden, um eine Tastenkombination wie STRG + M
direkt mit deinem Makro zu verknüpfen.
2. Was ist der Unterschied zwischen SendKeys
und OnKey
?
SendKeys
simuliert die Tasteneingabe, während OnKey
eine direkte Zuweisung einer Tastenkombination zu einem Makro ermöglicht. OnKey
ist in der Regel zuverlässiger.
Die 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