Wie öffne ich ein bestimmtes Arbeitsblatt anhand des ausgewählten Werts eines Kombinationsfelds in Excel?
Angenommen, Sie haben ein Kombinationsfeld, das alle Blattnamen der aktuellen Arbeitsmappe enthält (siehe Abbildung unten). Und jetzt möchten Sie ein bestimmtes Arbeitsblatt öffnen, wenn Sie den entsprechenden Blattnamen in einem Kombinationsfeld auswählen. Wie erreicht man das? Die Methode in diesem Artikel kann Ihnen helfen.
Öffnen Sie ein bestimmtes Arbeitsblatt mit dem ausgewählten Wert eines Kombinationsfelds mit VBA-Code
Der folgende VBA-Code kann Ihnen helfen, zu einem bestimmten Arbeitsblatt zu wechseln, das auf der Auswahl des Kombinationsfelds in Excel basiert. Bitte gehen Sie wie folgt vor.
Note: Wenn das Kombinationsfeld keinen Blattnamen in Ihrem Arbeitsblatt enthält, befolgen Sie bitte den folgenden Tipp, um schnell alle Blattnamen zu diesem Kombinationsfeld hinzuzufügen. Und wenn es bereits ein Kombinationsfeld gibt, das alle Blattnamen enthält, wechseln Sie bitte zu Step direkt.
Tipp: Fügen Sie eine Befehlsschaltfläche 1 in Ihr Arbeitsblatt ein, klicken Sie mit der rechten Maustaste darauf und wählen Sie Code anzeigen aus dem Kontextmenü. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das ein Code Fenster und drücken Sie die Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Anwendung Fenster. Klicken Sie auf die eingefügte Befehlsschaltfläche. Alle Blattnamen der aktuellen Arbeitsmappe werden automatisch zur ComboBox1 hinzugefügt.
VBA-Code: Fügen Sie einfach alle Blattnamen in ein Kombinationsfeld ein
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 Sub
Wenn bereits ein Kombinationsfeld mit allen Blattnamen vorhanden ist, gehen Sie wie folgt vor.
1. Mach das ... an Entwurfsmodus unter dem Entwickler:in / Unternehmen Tab.
2. Klicken Sie mit der rechten Maustaste auf das Kombinationsfeld mit den Blattnamen, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.
3. Dann die Microsoft Visual Basic für Applikationen Das Fenster öffnet sich. Bitte ersetzen Sie den ursprünglichen VBA-Code im Code-Fenster durch den folgenden VBA-Code.
VBA-Code: Öffnen Sie ein bestimmtes Arbeitsblatt anhand des ausgewählten Werts des Kombinationsfelds
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End Sub
Note: Im Code ist ComboBox1 der Name des Kombinationsfelds, das die Blattnamen enthält.
4. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster und schalten Sie das aus Entwurfsmodus unter dem Entwickler:in / Unternehmen Tab.
Wenn Sie nun einen beliebigen Arbeitsblattnamen im Kombinationsfeld auswählen, wird das entsprechende Arbeitsblatt automatisch geöffnet.
Listen Sie einfach alle Blattnamen der aktuellen Arbeitsmappe in Excel auf:
Durch die Verwendung des Blattindex in Ihrer Arbeitsmappe können Sie Ihre Arbeitsblätter einfach verwalten. Mit dem Liste der Blattnamen erstellen Nutzen von Kutools for Excelkönnen Sie einfach einen Blattindex erstellen, der alle Blattnamen in der aktuellen Arbeitsmappe enthält. Danach können Sie schnell zu einem bestimmten Arbeitsblatt wechseln, indem Sie einfach auf den Blattnamen im Index-Arbeitsblatt klicken. Siehe folgenden Screenshot:
Jetzt herunterladen und ausprobieren! (30 Tage kostenloser Trail)
In Verbindung stehende Artikel:
- Wie kopiere ich den Kombinationsfeldwert in eine aktive Zelle in Excel?
- Wie zeige ich das Datumsformat in der Kombinationsfeldausgabe in Excel an?
- Wie kann ich eine Befehlsschaltfläche basierend auf dem angegebenen Zellenwert in Excel ein- oder ausblenden?
- Wie kann ich die Eingabe in ein Kombinationsfeld in Excel verhindern oder deaktivieren?
- Wie kann ich das Kombinationsfeld verlassen, um 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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!