Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox dropdown

Combobox dropdown
ing.grohn
Hallo Forum,
Frohe Weihnachten!
in der ComboBox drücke ich das Dropdown-Sysmbol
Daraufhin rufe meine Suchroutine auf.
Wird nichts gefunden, bekomme ich eine Meldung!
alles Ok
Wie kann (und wo) ich verhindern, daß das DropDownFeld "leer" aufgeht?
Vielen DAnk für eine Antwort
Mit freundlichen Grüßen
Albrecht

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Combobox dropdown
25.12.2011 16:06:23
hary
Hallo Albrecht
mit: 

ComboBox1.ListIndex = 0

erzwingst Du den ersten Eintrag.
gruss hary
AW: Combobox dropdown
25.12.2011 16:36:29
ing.grohn
HAllo Harry
funktioniert leider nicht, ungültiger Listeintrag!
Allerdings arbeite ich mit Controls
"frm.Controls("ComboBox" & BoxNr).ListIndex=0"
Mit freundlichen Grüßen
Albrecht
AW: Combobox dropdown
25.12.2011 16:54:56
hary
Hallo Albrecht
Du must dem noch ein Ereigniss zu weisen. Hier gehen alle drei. 

Private Sub UserForm_Initialize()
Dim BoxNr As Long
'ComboBox1.ListIndex = 0
'frm.Controls("ComboBox1").ListIndex = 0
For BoxNr = 1 To 2
frm.Controls("ComboBox" & BoxNr).ListIndex = 0
Next
End Sub

gruss hary
Anzeige
AW: Combobox dropdown
25.12.2011 17:35:52
ing.grohn
Hallo Hary,
in der UF klicke ich auf das Dropdownfeld.
an die Suchprozedur für der Suchbegriff, die UF (=Name) und die Box-Nummer übergeben:
in der Prozedur gibts im Prinzip nur eine If-Verzweigung: 

If gefunden then
'Boxfüllen
frm.Controls("ComboBox" & BoxNr).List = DatList2() 'so wird die Box gefüllt
else
msgbox "Keine DAten"
frm.Controls("ComboBox" & BoxNr).ListIndex=0    'geht nicht
endif

Wie soll ich denn ein Ereignis an eine Prozedur übergeben?
bzw: in welchem Ereignis der Box müßte ich deinen EIntrag machen?
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Combobox dropdown
25.12.2011 17:49:03
hary
Hallo
Wenn nichts gefunden, dann steht doch auch nichts in der Combox.
versuchs mal so: 

If gefunden then
'Boxfüllen
frm.Controls("ComboBox" & BoxNr).List = DatList2() 'so wird die Box gefüllt
frm.Controls("ComboBox" & BoxNr).ListIndex=0
else
msgbox "Keine DAten"
endif

gruss hary
AW: Combobox dropdown
25.12.2011 17:56:50
ing.grohn
Hallo Harry,
das kann ja nun nicht sein,
wenn was gefunden wird möchte ich ja auswählen!
Ich möchte lediglich erreichen, dass wenn nichts gefunden wird
der Cursor in der Combobox steht und keine leeres Auswahlfenster mit
ESC verlassen werden muß.
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Combobox dropdown
25.12.2011 18:03:42
hary
Hallo
dann sollte es doch setfocus tun. 

frm.Controls("ComboBox" & BoxNr).setfocus

gruss hary
AW: Combobox dropdown
25.12.2011 18:34:13
ing.grohn
Hallo Harry,
SetFocus macht zwar keine Fehlermeldung aber bewirkt auch nichts
Merkwürdig:
frm.Controls("ComboBox" & BoxNr).AddItem = "Keinen Satz gefunden"
funktioniert auch nicht!
K.A. was man macht (wahrscheinlich weiter ESC-Drücken)
Mit freundlichen Grüßen
Albrecht

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige