Wie verlinkt man einen Befehlsschaltfläche mit einer URL-Adresse in Excel?
In Excel ist es möglicherweise einfach, eine Hyperlink für eine Formschaltfläche zu erstellen, aber haben Sie jemals versucht, einen Hyperlink für eine Befehlsschaltfläche zu erstellen? Wenn Sie auf die Befehlsschaltfläche klicken, gelangen Sie zur angegebenen URL-Website, die Sie benötigen. In diesem Artikel werde ich einige schnelle und einfache Tricks vorstellen, um diese Aufgabe in Excel zu bewältigen.
Befehlsschaltfläche mit einer URL-Adresse über VBA-Code verlinken
Befehlsschaltfläche mit einer URL-Adresse über VBA-Code verlinken
Um eine Befehlsschaltfläche zu verlinken, gehen Sie bitte wie folgt vor:
1. Klicken Sie auf Entwickler > Einfügen > Befehlsschaltfläche (ActiveX-Steuerelement) und zeichnen Sie dann eine Schaltfläche wie im folgenden Screenshot gezeigt:
2. Nachdem Sie die Befehlsschaltfläche eingefügt haben, klicken Sie mit der rechten Maustaste darauf und wählen Sie Eigenschaften aus dem Kontextmenü. Im Eigenschaften-Dialogfeld klicken Sie auf die Registerkarte Kategorisiert und geben die vollständige Websiteadresse ein, die Sie verlinken möchten, in das Textfeld Beschriftung ein, siehe Screenshot:
3. Schließen Sie dann den Dialog, klicken Sie mit der rechten Maustaste auf das Blattregister, das die Befehlsschaltfläche enthält, und wählen Sie Code anzeigen aus dem Kontextmenü. Im geöffneten Microsoft Visual Basic for Applications-Fenster kopieren und fügen Sie den folgenden Code in das leere Modul ein:
VBA-Code: Hyperlink zu einer Befehlsschaltfläche:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub
Hinweis: Im obigen Code ist CommandButton1 der Name der erstellten Befehlsschaltfläche, bitte ändern Sie ihn nach Bedarf.
4. Speichern Sie dann den Code und beenden Sie den Entwurfsmodus. Jetzt wird beim Klicken auf die Befehlsschaltfläche die spezifische Webseite geöffnet.
Tipps: Wenn die Beschriftung auf der Befehlsschaltfläche nicht die URL-Adresse ist, sondern nur eine Textzeichenfolge wie im folgenden Screenshot gezeigt:
Sie können den folgenden VBA-Code verwenden, um dies zu erreichen:
VBA-Code: Hyperlink zu einer Befehlsschaltfläche:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub
Hinweis: Im obigen Code ist CommandButton1 der Name der erstellten Befehlsschaltfläche, und Sie sollten die Websiteadresse https://www.extendoffice.com durch Ihre eigene URL-Adresse ersetzen.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins