Wie öffnet man ein Arbeitsblatt, indem man dessen Namen in einem Dropdown-Feld auswählt?
Angenommen, Sie haben ein Kombinationsfeld in Ihrer Excel-Arbeitsmappe, das alle Arbeitsblattnamen auflistet. Wählen Sie einfach den gewünschten Namen aus – und schon springen Sie direkt zum entsprechenden Arbeitsblatt. Diese Anleitung zeigt Schritt für Schritt, wie Sie das Kombinationsfeld mit den Arbeitsblattnamen befüllen und per VBA-Code die gewünschte Funktion aktivieren.
Öffnen eines Arbeitsblatts durch Auswahl seines Namens in einem Kombinationsfeld mithilfe von VBA-Code
Der folgende VBA-Code ermöglicht es Ihnen, je nach Auswahl im Kombinationsfeld direkt zum entsprechenden Arbeitsblatt zu wechseln. Gehen Sie dazu wie folgt vor:
Hinweis: Enthält das Kombinationsfeld keine Arbeitsblattnamen, befolgen Sie bitte den folgenden Tipp, um schnell alle Arbeitsblattnamen in dieses Kombinationsfeld einzufügen. Ist bereits ein Kombinationsfeld mit allen Arbeitsblattnamen vorhanden, fahren Sie direkt mit Schritt 1 fort.
Tipp: Fügen Sie eine Befehlsschaltfläche 1 in Ihr Arbeitsblatt ein, klicken Sie diese mit der rechten Maustaste an und wählen Sie Code anzeigen aus dem Kontextmenü. Kopieren Sie anschließend den folgenden VBA-Code in das Code-Fenster und drücken Sie die Tasten Alt + Q, um das Microsoft Visual Basic for Applications-Fenster zu schließen. Sobald Sie auf die eingefügte Befehlsschaltfläche klicken, werden automatisch alle Arbeitsblattnamen der aktuellen Arbeitsmappe in ComboBox1 eingefügt.
VBA-Code: Alle Arbeitsblattnamen einfach in ein Kombinationsfeld einfügen
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End SubFalls bereits ein Kombinationsfeld mit allen Arbeitsblattnamen vorhanden ist, gehen Sie folgendermaßen vor:
1. Aktivieren Sie den Entwurfsmodus unter der Registerkarte Entwickler.
2. Klicken Sie mit der rechten Maustaste auf das Kombinationsfeld mit den Arbeitsblattnamen und wählen Sie dann Code anzeigen aus dem Kontextmenü.
3. Daraufhin öffnet sich das Fenster Microsoft Visual Basic for Applications. Ersetzen Sie den ursprünglichen VBA-Code im Code-Fenster durch den folgenden VBA-Code.
VBA-Code: Öffnen eines bestimmten Arbeitsblatts anhand des ausgewählten Werts im Kombinationsfeld
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End SubHinweis: Im Code ist „ComboBox1“ der Name des Kombinationsfelds, das die Arbeitsblattnamen enthält.
4. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen, und deaktivieren Sie den Entwurfsmodus unter der Registerkarte Entwickler.
Ab sofort wird durch die Auswahl eines beliebigen Arbeitsblattnamens im Kombinationsfeld automatisch das entsprechende Arbeitsblatt geöffnet.
Alle Arbeitsblattnamen von Aktuelle Arbeitsmappe in Excel einfach auflisten:
Ein Arbeitsblattverzeichnis in Ihrer Arbeitsmappe erleichtert die Verwaltung Ihrer Arbeitsblätter erheblich. Mit dem Verknüpfungstabelle erstellen-Werkzeug von Kutools für Excel erstellen Sie mühelos ein Verzeichnis mit allen Arbeitsblattnamen der aktuellen Arbeitsmappe. Anschließend wechseln Sie per einfachem Klick auf den jeweiligen Namen im Verzeichnis-Arbeitsblatt blitzschnell zum gewünschten Arbeitsblatt. Siehe folgender Screenshot:
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Verwandte Artikel:
- Wie überträgt man den Wert eines Kombinationsfeldes in die aktive Zelle in Excel?
- Wie lässt sich das Datumsformat in der Anzeige eines Kombinationsfeldes in Excel korrekt darstellen?
- Wie blendet man eine Befehlsschaltfläche in Excel basierend auf einem bestimmten Zellwert ein oder aus?
- Wie kann man die Eingabe in ein Kombinationsfeld in Excel verhindern oder deaktivieren?
- Wie springt man mithilfe der Tabulator-Taste aus einem Kombinationsfeld, um gezielt eine bestimmte Zelle in Excel auszuwählen?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins