Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie öffne ich ein bestimmtes Arbeitsblatt mit dem ausgewählten Wert einer Combo Box in Excel?

Angenommen, Sie haben ein Kombinationsfeld, das alle Blattnamen der aktuellen Arbeitsmappe enthält, wie im folgenden Screenshot gezeigt. Und jetzt möchten Sie ein bestimmtes Arbeitsblatt öffnen, wenn Sie den entsprechenden Blattnamen in einer Combo-Box auswählen. Wie erreiche ich das? Die Methode in diesem Artikel kann Ihnen helfen.

Öffnen Sie ein bestimmtes Arbeitsblatt mit dem ausgewählten Wert eines Kombinationsfelds mit VBA-Code


Einfach alle Blattnamen der aktuellen Arbeitsmappe in Excel auflisten:

Mithilfe des Blattindex in Ihrer Arbeitsmappe können Sie Ihre Arbeitsblätter problemlos verwalten. Mit dem Erstellen Sie eine Liste von Blattnamen Nutzen von Kutools for Excelkönnen Sie ganz einfach einen Blattindex mit allen Blattnamen der aktuellen Arbeitsmappenliste erstellen. Und Sie können schnell zu einem bestimmten Arbeitsblatt wechseln, indem Sie einfach auf den Arbeitsblattnamen im Arbeitsblatt Index klicken. Siehe unten Screenshot:

Kutools for Excel: mit mehr als 200 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können. Download und kostenlose Testversion Jetzt!


Pfeil blaue rechte Blase Ö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 gehen, das auf der Kombinationsfeld-Auswahl in Excel basiert. Bitte wie folgt vorgehen.

TextWenn das Kombinationsfeld keinen Arbeitsblattnamen in Ihrem Arbeitsblatt enthält, folgen Sie dem folgenden Tipp, um alle Arbeitsblattnamen schnell zu diesem Kombinationsfeld hinzuzufügen. Und wenn bereits eine Combo Box mit allen Blattnamen vorhanden ist, wechseln Sie bitte zu Schritt 1 direkt.

Spitze: 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 Textfeld ein Kode 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, dann werden alle Blattnamen der aktuellen Arbeitsmappe automatisch in die ComboBox1 hinzugefügt.

VBA-Code: Fügen Sie einfach alle Blattnamen in eine Combo-Box 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 Tab.

2. Klicken Sie mit der rechten Maustaste auf das Kombinationsfeld mit den Blattnamen, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.

doc-Kombinationsfeld geöffnetes Arbeitsblatt 12png

3. Dann ist die Microsoft Visual Basic für Applikationen Fenster erscheint, bitte ersetzen Sie den ursprünglichen VBA-Code im Code-Fenster durch den folgenden VBA-Code.

VBA-Code: Öffnen Sie ein bestimmtes Arbeitsblatt mit dem ausgewählten Wert des Kombinationsfelds

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

Text: In dem Code ist ComboBox1 der Name des Kombinationsfelds, das die Blattname enthält.

4. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster, und deaktivieren Sie die Entwurfsmodus unter dem Entwickler Tab.

Wenn Sie jetzt einen Arbeitsblattnamen in der Kombinationsbox auswählen, wird das entsprechende Arbeitsblatt automatisch geöffnet.


Pfeil blaue rechte BlaseIn Verbindung stehende Artikel:



Empfohlene Produktivitätswerkzeuge für Excel

Kutools for Excel hilft Ihnen, Ihre Arbeit immer im Voraus zu erledigen und sich von der Masse abzuheben

  • Mehr als 300 leistungsstarke erweiterte Funktionen, die für 1500-Arbeitsszenarien entwickelt wurden und die Produktivität um 70% steigern, geben Ihnen mehr Zeit, sich um Ihre Familie zu kümmern und das Leben zu genießen.
  • Sie müssen keine Formeln und VBA-Codes mehr auswendig lernen. Geben Sie Ihrem Gehirn eine Pause.
  • Werden Sie ein Excel-Experte in 3 Minuten. Komplizierte und wiederholte Operationen können in Sekunden durchgeführt werden.
  • Reduzieren Sie jeden Tag Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
  • 110,000 hochwirksame Mitarbeiter und 300 + weltweit renommierte Unternehmen.
  • Kostenlose Testversion für 60-Tage mit allen Funktionen. Geld-zurück-Garantie für 60-Tage. 2 Jahre kostenloses Upgrade und Support.

Bringt das Browsen und Bearbeiten von Registerkarten in Microsoft Office, das weitaus leistungsstärker ist als die Registerkarten des Browsers

  • Die Registerkarte "Office" wurde für Word, Excel, PowerPoint und andere Office-Anwendungen entwickelt: 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 täglich Hunderte von Mausklicks für Sie!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ahmad Naser · 1 years ago
    hi
    i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
  • To post as a guest, your comment is unpublished.
    yaseen muhammad · 1 years ago
    perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .