Anzeige
Archiv - Navigation
1588to1592
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
Inhaltsverzeichnis

ComboBox oberster Eintrag

ComboBox oberster Eintrag
09.11.2017 07:53:25
Marcus
Hallo zusammen,
Ich habe eine ComboBox erstellt uns diese gefüllt über AddItem, diese ComboBox ist verknüpft mit einem Befehlsbutton. Wenn ein Nutzer oder Nutzrin einen Eintrag aus der ComboBox auswählt und anschließend auf den Befehlsbutton drück wird dieser Eintrag in eine Tabelle geschrieben. Jetzt bleibt leider der zuletzt ausgewählte Eintrag in der ComboBox stehen, dies soll aber nicht so sein sondern als Standart soll in der ComboBox immer der oberste Eintrag ausgewählt sein, welches ein Leerfeld ist.
Kann mir jemand den Code dazu nennen?
Vielen Dank
Mfg Marcus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ComboBox1.ListIndex = 0 (owT) VBA schlecht!
09.11.2017 07:56:12
EtoPHG

AW: ComboBox1.ListIndex = 0 (owT) VBA schlecht!
09.11.2017 08:18:37
Marcus
Leider funktioniert das nicht so habe ich das schon in der Liste...
Die Liste sieht so aus:
Combo_Von.Clear
Combo_Von.AddItem ""
Combo_Von.AddItem "....."
Combo_Von.AddItem "....."
Combo_Von.AddItem "....."
Combo_Von.AddItem "....."
Combo_Von.ListIndex = 0
Funktioniert nicht ist eine NULL-Aussage. (owT) ?
09.11.2017 08:23:19
EtoPHG

AW: ComboBox1.ListIndex = 0 (owT) VBA schlecht!
09.11.2017 09:30:44
Matthias
Hi
Du füllst per AddItem die Box z.B. so
 Combo_Von.Clear
Combo_Von.AddItem ""
Combo_Von.AddItem "....1"
Combo_Von.AddItem "....2"
Combo_Von.AddItem "....3"
Combo_Von.AddItem "....4"
Die Codezeile (Combo_Von.ListIndex = 0) gehört dann zur Befehlsschaltfläche
Bspw.

Private Sub CommandButton1_Click()
Cells(1, 1) = Combo_Von.Value
Combo_Von.ListIndex = 0
End Sub

Wobei Du beim Füllen der Box Combo_Von.AddItem "" auch weglassen könntest
Fürs Button dann so:

Private Sub CommandButton1_Click()
Cells(1, 1) = Combo_Von.Value
Combo_Von.Text = ""
End Sub
Gruß Matthias
Anzeige
AW: ComboBox1.ListIndex = 0 (owT) VBA schlecht!
09.11.2017 09:37:34
Marcus
Super vielen Dank.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige