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

Beiträge aus den Excel-Beispielen zum Thema "Combobox laden"