---

Hallo,

bin neu hier und gleich ne Frage.

Ich habe soeben eine ComboBox im Excel gemacht und muss die Macro leider bei jedem Start laufen lassen damit sich die Combobox auch mit den Daten füllt die ich virgesehn habe.
Die SUB "Private Sub Workbook_Open" geht leider nicht weil es ja nicht im SHEET sondern im WORKBOOK gestartet wird. Meine Sub im SHEET wo sich die Combobox auch befindet sieht folgendermassen aus:

Private Sub Initialize()

    ComboBox1.AddItem "All"                'ListIndex = 0
    ComboBox1.AddItem "Telecom"            'ListIndex = 1
    ComboBox1.AddItem "Sys & Storage"      'ListIndex = 2
    ComboBox1.AddItem "Network"            'ListIndex = 3
    ComboBox1.AddItem "Network & Support"  'ListIndex = 4
    ComboBox1.AddItem "Sales & Admin"      'ListIndex = 5
    ComboBox1.AddItem "Security"            'ListIndex = 6
 
End Sub

Und wenn ich nun diese Datei öffne will ich gerne gleich auf die Liste zugreifen können ohne die Liste manuell zu laden.

Ich hoffe hier kann mir jemand weiterhelfen, hab soweit das ganze Netz durchgekämmt.

mfG

Rom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rom!

Zitat:

---

Die SUB "Private Sub Workbook_Open" geht leider nicht weil es ja nicht im SHEET sondern im WORKBOOK gestartet wird.

---

Wieso nicht?
Wenn Du folgenden Code in ein Modul kopierst

Code:

---

Sub Box_fuellen()
With ActiveSheet.ComboBox1
.AddItem "All"
.AddItem " Telecom"
.AddItem "Network"
.AddItem "Network & Support"
.AddItem "Sales & Admin"
.AddItem "Security"
End With
End Sub

---

und in "Diese Arbeitsmappe" noch folgendes einträgst:

Code:

---

Private Sub Workbook_Open()
Box_fuellen
End Sub

---

dann sollte genau das passieren, was Du willst.
Oder tut's das doch nicht?

Gruß,
Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Antwort, habe noch weiter gesucht und probiert und hier war denn meine Lösung:

Private Sub Workbook_Open()
    Sheet1.ComboBox1.AddItem "All"                'ListIndex = 0
    Sheet1.ComboBox1.AddItem "Telecom"            'ListIndex = 1
    Sheet1.ComboBox1.AddItem "Sys & Storage"      'ListIndex = 2
    Sheet1.ComboBox1.AddItem "Network"            'ListIndex = 3
    Sheet1.ComboBox1.AddItem "Network & Support"  'ListIndex = 4
    Sheet1.ComboBox1.AddItem "Sales & Admin"      'ListIndex = 5
    Sheet1.ComboBox1.AddItem "Security"            'ListIndex = 6

End Sub
Danke trotzdem für deine Antwort und deine Mühe!!

Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tja, kaum sagt man ihm, wo er die combobox suchen soll, klappt's auch mit dem Befüllen 
Schönen Tag noch!!

Gruß,
Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP