---

Hallo zusammen

Einfaches Beispiel komme jedoch nicht auf die Lösung

Ich möchte einer (bereits gefüllten) ComboBox den Text der ComboBox hinzufügen.
Der Text in der ComboBox soll dann in den Einträgen erscheinen.

Sub CommandButtonOK_Click()

Dim s As String

    s = ComboBox111.Text
   
    MsgBox s
   
    UserForm2.ComboBox111.AddItem (s)
   
    Unload UserForm2

End Sub

Private Sub UserForm_initialize()

    ComboBox111.AddItem "Hans"
    ComboBox111.AddItem "Emil"

End Sub

Da passiertleider nix !
Was mache ich falsch??

Gruß
Fugmann

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

---

Hallo Fugmann,
Laß doch mal den Teil schrittweise durchlaufen, was passiert?
Du fügst der Combobox, die ein Element des Userforms ist ein Element hinzu und danach löscht Du gleich das Userform und alle damit verbundenen Elemente. Wo soll nun das neu hinzugefügte Element erscheinen?

Beschreibe einmal was Du machen möchtest, dann kann Dir sicher eine Lösung gegeben werden.

Grüße
Klaus 

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

---

ComboBox.jpg

Hallo nochmal

Bin die Anwendung Schritt für Schritt durchgegangen (F8)
Läuft ohne zu Meckern durch.

Hab mal ein Bild zum besseren Verständnis mit angehängt.
Vieleicht wird hier mein Problem erkennbar.

Gruß
Fugmann

Nachtrag: der "Emil" in der ComboBox im Bild soll narürlich "Gustav" heissen

[Diese Nachricht wurde von Fugmann am 25. Nov. 2016 editiert.]

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

---

                

Es heißt zwar ein Bild sagt mehr als tausend Worte aber gibt es auch Sinn?
Ich interpretiere es so dass Du möchtest dass der Programmtext automatisch um einen weiteren Eintrag ergänzt wird     

Oder soll einfach der erste Wert angezeigt werden?
Dann ergänze doch mal

Code:

---

Private Sub UserForm_initialize()

    ComboBox111.AddItem "Hans"
    ComboBox111.AddItem "Emil"
    ComboBox111.ListIndex = 0   ' << hier wird der anzuzeigende Wert eingestellt

End Sub

---

Oder beschreibe genauer was Du möchtest ...

Grüße
Klaus     

[Edit] Du kannst ja mal einen zweiten Command dazufügen zum Beenden des Userform und beim OK das unload entfernen, dann wirst Du sehen, dass die Werte schon richtig ergänzt werden. Allerdings werden diese nach Beenden des Userform wieder gelöscht.

Ein Ergänzen des Code geht nicht so einfach, das zähle ich mal nicht zur Hilfe in einem Forum.
Was Du aber machen könntest wäre die benötigten Werte in einer globalen Liste (Stringarray) zu speichern und diese dann beim nächsten Aufruf wieder zuweisen.

[Diese Nachricht wurde von KlaK am 25. Nov. 2016 editiert.]

[Edit 2] Alternative wäre natürlich statt unload Userform2 ein UserForm2.Hide zu verwenden, dann bleiben die Werte erhalten und stehen beim nächsten Userform2.Show wieder zur Verfügung.

[Diese Nachricht wurde von KlaK am 25. Nov. 2016 editiert.]

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

---

Hallo KlaK

Erstmal Danke fur die schnellen Antworten.

Meine Idee ist:

ComboBox-Eintrag bedeutet Überordner
Textbox-Eintrag bedeutet Unterordner

ComboBox-Eintrag ist beim Aufruf leer

Ich lege anhand des vorausgewählten Eintrages der ComboBox (Dropdown) einen  neuen Unterordner (Textbox-Eintrag) im bereits vorhandenen Überordner (Eintrag der ComboBox) an.

Nun möchte ich die ComboBox auch dazu nutzen, neue Überordner anzulegen ohne jedesmal den Quellcode zu bearbeiten. (ComboBox-Eintrag wird neuer Überordner, wenn noch nicht vorhanden)

Bei OK
->Abfrage ob bereits vorhanden

Wenn ja -> Meldung "Existiert bereits" und Abbruch der Aktion
Wenn nein -> Überordner mit dem Eintrag der ComboBox anlegen.

Nun soll dieser neue Eintrag in der ""UserForm_initialize()"" ergänzt werden.

Beim Schließen der UserForm (OK) wird der Quellcode mit der Meldung: MsgBox "Überordner hinzugefügt Makro speichern?" entweder akzeptiert (OK) oder verworfen (Cancel)

Hoffe hiermit mal etwas Licht ins dunkel des Verständnis gebracht zu haben

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

---

Hallo Fugmann,

Überordner? Unterordner?
Sind das Verzeichnis in einem bestimmten Laufwerk?
Dann würde ich die entsprechenden Dateifunktionen zum Füllen der Comboboxen verwenden.
Ist doch ziemlich Fehleranfällig wenn die Verzeichnisse händisch eingetragen werden.

Oder ich habe es noch nicht kapiert ...

Grüße
Klaus 

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