combobox beim öffnen füllen

Forumthread: combobox beim öffnen füllen

12.05.2006 12:33:55

Hallo,
ich möchte, das sich nach öffnen einer Datei, eine Combobox füllt.
Dazu habe ich mir folgendes überlegt:


Private Sub workbook_open()
Sheets("auswahl").Select
Sheets("auswahl").Activate
With Sheets("auswahl")
ComboBox2.Clear
For i = 1 To Sheets.Count
ComboBox2.AddItem Sheets(i).Name
Next i
ComboBox2.ListIndex = 0
End With
End Sub

klappt aber nicht.
Wie muß der Code lauten, damit das funktioniert?
Mit freundlichen Grüssen Frank

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: combobox beim öffnen füllen

12.05.2006 13:00:15

yogi
vielen Dank

12.05.2006 13:14:32

F

AW: combobox beim öffnen füllen

12.05.2006 13:00:15

yogi

Tach Frank
mit Pünktchen !!


Private Sub workbook_open()
With Sheets("auswahl")
.ComboBox2.Clear
For i = 1 To Sheets.Count
.ComboBox2.AddItem Sheets(i).Name
Next i
.ComboBox2.ListIndex = 0
End With
End Sub

Gruss yogi

vielen Dank

12.05.2006 13:14:32

Mit freundlichen Grüssen Frank

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Combobox in Excel beim Öffnen einer Datei zu füllen, kannst du den folgenden VBA-Code verwenden. Achte darauf, dass du den Code im richtigen Modul einfügst. Gehe so vor:

Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
Doppelklicke auf "DieseArbeitsmappe" im Projektfenster.

Füge den folgenden Code ein:

Private Sub Workbook_Open()
   With Sheets("auswahl")
       .ComboBox2.Clear
       For i = 1 To Sheets.Count
           .ComboBox2.AddItem Sheets(i).Name
       Next i
       .ComboBox2.ListIndex = 0
   End With
End Sub

Schließe den VBA-Editor und speichere deine Datei als Makro-fähige Arbeitsmappe (*.xlsm).
Schließe die Datei und öffne sie erneut, um die Combobox zu füllen.

Dieser Code sorgt dafür, dass beim Öffnen der Datei die Combobox mit den Namen aller Arbeitsblätter gefüllt wird.

Häufige Fehler und Lösungen

Fehler: "Objekt nicht gefunden"
- Stelle sicher, dass der Name der Combobox korrekt ist. In diesem Beispiel verwenden wir ComboBox2. Überprüfe, ob es in deiner UserForm oder dem Arbeitsblatt vorhanden ist.
Fehler: "Das Ereignis kann nicht ausgeführt werden"
- Überprüfe, ob du den Code im richtigen Modul (DieseArbeitsmappe) eingefügt hast. Der Code für das Füllen der Combobox muss sich im Workbook_Open-Ereignis befinden.

Alternative Methoden

Wenn du keine VBA verwenden möchtest, kannst du die Combobox auch manuell füllen, indem du:

Die Combobox auswählst.
Im Eigenschaftenfenster die Elemente in der List-Eigenschaft hinzufügst.

Dies ist jedoch ineffizient, wenn du viele Blätter hast oder die Blätter häufig änderst.

Praktische Beispiele

Angenommen, du hast die Blätter "Januar", "Februar" und "März". Nach dem Ausführen des Codes wird die Combobox beim Öffnen der Datei mit diesen Namen gefüllt:

Januar
Februar
März

Dies ermöglicht eine schnelle Navigation zwischen den Blättern.

Tipps für Profis

Dynamische Aktualisierung: Du könntest den Code erweitern, um nur sichtbare Blätter oder spezifische Blätter in die Combobox aufzunehmen.
Fehlerbehandlung: Füge eine Fehlerbehandlungsroutine ein, um sicherzustellen, dass das Programm nicht abstürzt, falls ein Blatt nicht gefunden wird.

On Error Resume Next

Diese Zeile kann am Anfang deines Codes hinzugefügt werden, um Fehler zu ignorieren und die Ausführung fortzusetzen.

FAQ: Häufige Fragen

1. Wie kann ich die Combobox mit spezifischen Werten füllen?
Du kannst die Werte manuell in die Combobox einfügen, indem du ComboBox2.AddItem "Wert" verwendest, anstelle von dem Schleifenbefehl.

2. Funktioniert dieser Code auch in Excel 365?
Ja, der Code funktioniert in Excel 365 sowie in früheren Versionen wie Excel 2016 oder Excel 2019, solange die VBA-Umgebung unterstützt wird.

Beliebteste Forumthreads (12 Monate)