combobox refreshen

[maaike2703]

Hallo allen,

Ik vul mijn combobox als volgt:

Private Sub UserForm_Initialize()
Dim oC As Range, EndRow As Long, r As Long
'In de gespecificeerde sheet worden het aantal rijen geteld in kolom 1 en kolom 2
EndRow = Worksheets("gegevens").Cells(Rows.Count, 1).End(xlUp).Row
EndRow = Worksheets("gegevens").Cells(Rows.Count, 2).End(xlUp).Row
Set oC = Worksheets("gegevens").Cells
For r = 1 To EndRow

'Als de waarde van een cel leeg is dan wordt de rij niet vermeld in de opsomming
If oC(r, 1).Value <> "" Then
cbozoekenprojectnaam.AddItem oC(r, 1).Value
End If
If oC(r, 2).Value <> "" Then
cbozoekenauditkenmerk.AddItem oC(r, 2).Value
End If
Next
End Sub

*********************************************************************************************8
Het lastige is dat de combobox gevuld wordt bij het opstarten van het formulier = opstarten van het excel document.
Het komt voor dat er wijzigingen plaatsvinden in de worksheet "gegevens" als het formulier al geladen is.
Hoe kan ik ervoor zorgen dat de combobox wordt gerefreshed?

Bedankt alvast.

Groet Maaike

 

[HSV]

Met een klein beetje creativiteit kun je met deze instrumenten wel vooruit.

Private Sub Worksheet_Change(ByVal Target As Range)
 UserForm1.ComboBox1.AddItem Target.Value
End Sub

 

[maaike2703]

Bedankt Harry!