inhoud keuzelijst via VBA in Excel

[jeroenSturm]

hallo,

ik ben al aan het zoeken geweest maar kon niets bruikbaars vinden .
ik wil graag een keuzelijst in excel met daarin alles uit Column C waar een waarde is (want de hoeveelheid die in Column C staan is variable)


hoe doe ik dit??

alvast bedankt

 

[snb]

Heb je ook al geprobeerd om iets te bedenken ?

 

[jeroenSturm]

nee nog niet want kan ook nergenst de syntax vinden of een relevant voorbeeld.

ik hoop dat je kan helpen.

 

[jeroenSturm]

ik heb dit nu even gemaakt

Private Sub test1()
Dim r As Long
For r = 2 To Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row
    If Cells(r, 3).Value <> "" Then
        ComboBox1.AddItem Cells(r, 3).Value
    End If
Next
End Sub

maar is er ook een manier om dit up-to-date te houden zodat als ik iets verwijder of erbij zet dat het dan automatisch gebeurd?

 

[ReneDirks]

Dan voeg je aan de sheet de volgende code toe:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Target, Range("C1").EntireColumn) Is Nothing) Then
        'Refill the ComboBox
        test1 'dit is jouw routine
    End If
End Sub

 

[jeroenSturm]

a dat werkt allen hij loop wel door mijn eigen For heen maar elke keer dan skipt hij de If omdat de waarde blijkbaar "" is
maar als ik het in direct opvraag krijg ik wel gewoon iets terug

hoe kan dat?

 

[jeroenSturm]

ik hbe het opgelost
was vergeten de sheet te vereldin in de If

dus het moest zo

If Sheets(2).Cells(r, 3).Value <> "" Then
        ComboBox1.AddItem Sheets(2).Cells(r, 3).Value
    End If

 

[snb]

Hoezo niets gevonden ?

http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[jeroenSturm]

dankje ga ik nog wel gebruiken denk ik.