Herbers Excel-Forum - das Archiv

Combobox laden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Combobox laden
von: Andreas

Geschrieben am: 14.04.2005 11:59:23
Hi,
habe eine Combobox die will ich bei Click mit den Daten aus Kundentabelle laden, das funktioniert mir aber nur wenn ich es über einen Commandbutton-Click mache, wieso geht es nicht wie unten beschrieben??
Gruss Andreas
Private Sub Combobox1_Click()
Dim curRow As Integer
Dim lastrow As Integer
Dim ws As Worksheet
Set ws = Worksheets("Kunden")
lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
combobox1.Clear
For curRow = 1 To lastrow
If Len(ws.Range("A" & curRow).Text & "") > 0 Then
combobox1.AddItem ws.Range("A" & curRow).Text
End If
Next
Set ws = Nothing
End Sub

Bild

Betrifft: AW: Combobox laden
von: Holger
Geschrieben am: 14.04.2005 12:05:39
Hallo,
das Klick-Ereignis wird dazu verwendet, etwas auszuwählen, nicht um die Box zu füllen.
Machs z.B. in Worksheet_activate.
Gruß Holger
Bild

Betrifft: AW: Combobox laden
von: Andreas
Geschrieben am: 14.04.2005 12:49:05
Hi,
geht natürlich auch mit "Private Sub combobox1_GotFocus()"
Gruss Andreas
Bild

Betrifft: AW: Combobox laden
von: Holger
Geschrieben am: 14.04.2005 13:13:24
Hallo,
ich schrieb ja auch z.B., soll heißen, dass es auch anders geht.
Gruß Holger
 Bild
Excel-Beispiele zum Thema "Combobox laden"
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen Neues Element in ComboBox