ComboBox dynamisch initialisieren

[Elke Boese]

Hallo,

ich habe auf meiner Userform eine ComboBox.  Wenn ich meine  Userform starte steht in dieser Combobox
absolut nichts, da  ich die Befüllung erst später erledigen möchte. Auf der Combox befindet sich ja rechts ein kleiner
nach unten gerichteter Pfeil. Wenn ich diesen Pfeil drücke soll eine in einem Modul stehende Funktion aufgerufen werden,
die dann  mittels der Methode AddItem meine ComboBox befüllt.

Wie kriege ich so etwas hin?

[Zwergel]

Entschuldige bitte, aber warum sollte der Nutzer.solch einen zusätzlichen Klick machen müssen?
Befülle beim Öffnen der UF.

[Willie017]

Hallo

z.B. so
in der Userform

Code:

Private Sub ComboBox1_DropButtonClick()
   If ComboBox1.ListCount = 0 Then
      Call FillBox
   End If
End Sub

im Modul

Code:

Sub FillBox()
   With UserForm1.ComboBox1
      .Clear
      .AddItem "Eintrag1"
      .AddItem "Eintrag2"
      .AddItem "Eintrag3"
      .AddItem "Eintrag4"
   End With
End Sub

[Willie017]

Entschuldige bitte, aber warum sollte der Nutzer.solch einen zusätzlichen Klick machen müssen?
Befülle beim Öffnen der UF.

Hallo

ich bin zwar nicht die TE, aber könnte mir vorstellen dass zuerst Einstellungen in der UF vorgenommen werden, welche Einfluss auf den Inhalt der Combobox haben. Könnte man bestimmt eleganter lösen, aber für den Einstieg sicher nicht das Schlimmste, Verbesserungen kommen dann beim Benutzen und dann ist schon ein gewisses Rüstzeug da. So habe ich mir immer beholfen als ich noch froh war dass überhaupt irgend etwas lief

[Elke Boese]

Danke Willie!