Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Combobox Additem
11.01.2023 16:46:25
Stefan
Ich habe da wieder mal ein Problem !
Ich habe mir eine Combobox erstellt und mit "additem" Namen hinzugefügt. Jetzt habe Ich aber wenn Ich die Combobox aufrufe alle Namen Doppelt wie wird das gelöst.
Ich raffe es einfach nicht.Ich habe den Code mal hinzugefügt.irgendwo hab ich da mal was gelesen ,finde es aber nicht wieder.

Sub UserForm_Activate()
With Me.ComboBox1
.AddItem "1 Martin"
.AddItem "2 Michael"
.AddItem "3 Sabine"
.ListIndex = 0
End With
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox Additem
11.01.2023 17:13:31
Daniel
Hi
Der Code muss ins Initialitze-Event.
Das läuft nur, wenn die Userforum komplett neu erstellt wird, also beim ersten Öffnen oder wenn die Userform zuvor mit Unload Me beendet wurde.
Das Activate-Event ist ähnlich, aber es läuft dann, wenn die Userform aktiviert wird, also beispielsweise auch dann, wenn sie vor dem .Show mit .Hide nur ausgeblendet und nicht vollständig beendet wurde.
Dann sind natürlich noch alle gemachten Änderungen aktiv und somit hast du dann die Werte doppelt drin.
Andere alternative Lösungsmöglichkeiten wären:
- du löscht vor dem ersten .AddItem den Inhalt mit .Clear
- du schreibst die Werte in einen Zellbereich und trägst die Adresse in die Eigenschaft RowSource ein. Das machst du direkt im Eigenschaftsfenster im Editor und das geht ohne Code.
Gruß Daniel
Anzeige
AW: Combobox Additem
11.01.2023 17:35:13
Rudi
Hallo,
ich bevorzuge die List-Eigenschaft.

Sub UserForm_Activate()
With Me.ComboBox1
.List = Array("1 Martin", "2 Michael", "3 Sabine")
.ListIndex = 0
End With
End Sub
Gruß
Rudi
AW: Combobox Additem
13.01.2023 09:50:03
Stefan
Danke für die Antworten Hat mit Additem geklappt

141 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige