Wie füllt man ein ComboBox-Steuerelement in einem Benutzerformular mit allen Arbeitsblattnamen aus der aktuellen Excel-Arbeitsmappe?

Dieser Artikel zeigt, wie Sie alle Arbeitsblattnamen der aktuellen Arbeitsmappe in ein ComboBox-Steuerelement eines Benutzerformulars in Excel einfügen.

Füllen Sie ein ComboBox-Steuerelement im Benutzerformular mithilfe von VBA-Code mit allen Arbeitsblattnamen

Füllen Sie ein ComboBox-Steuerelement im Benutzerformular mithilfe von VBA-Code mit allen Arbeitsblattnamen

Der folgende VBA-Code fügt alle Arbeitsblattnamen der aktuellen Arbeitsmappe in ein ComboBox-Steuerelement Ihres Benutzerformulars ein. Gehen Sie dazu wie folgt vor.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Fügen Sie im Fenster Microsoft Visual Basic for Applications ein Benutzerformular ein, indem Sie auf Einfügen > Benutzerformular klicken, wie im folgenden Screenshot dargestellt.

3. Zeichnen Sie ein Kombinationsfeld-Steuerelement und fügen Sie es anschließend in das Benutzerformular ein. Siehe Screenshot:

4. Klicken Sie mit der rechten Maustaste auf das eingefügte Kombinationsfeld und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:

5. Kopieren Sie im geöffneten Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code, und fügen Sie ihn in das Codefenster ein, um den ursprünglichen Code zu ersetzen.

VBA-Code: Füllen eines ComboBox-Steuerelements im Benutzerformular mit allen Arbeitsblattnamen von Aktuelle Arbeitsmappe

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Hinweis: Im Code steht „ComboBox1“ für den Namen des eingefügten Kombinationsfelds. Passen Sie diesen bitte an Ihren eigenen Namen an.

6. Drücken Sie die Taste F5, um den Code auszuführen. Im geöffneten Benutzerformular werden sämtliche Arbeitsblattnamen der aktuellen Arbeitsmappe – wie im folgenden Screenshot zu sehen – im Kombinationsfeld angezeigt:

Verwandte Artikel:

• Wie überträgt man den Wert eines Kombinationsfelds in die aktive Zelle in Excel?
• Wie lässt sich das Datumsformat in der Anzeige eines Kombinationsfelds in Excel korrekt darstellen?
• Wie öffnet man in Excel ein bestimmtes Arbeitsblatt basierend auf dem im Kombinationsfeld ausgewählten Wert?
• Wie verhindert oder deaktiviert man die Eingabe in einem Kombinationsfeld in Excel?
• Wie springt man mithilfe der Tabulator-Taste aus einem Kombinationsfeld, um eine bestimmte Zelle in Excel auszuwählen?

Beste Office-Produktivitätstools

🤖	KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen…
	Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
	Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
	Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
	Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
	Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
	Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

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...

Weitere Details zu Kutools für Excel...Kostenloser Download...

---

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!

Weitere Details zu Office Tab...Kostenloser Download...

---

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

Weitere Details zu Kutools for Office...Kostenloser Download...