Tøm data i combobox (VBA + UserForm
Hej,Jeg har en ComboBox (navn: cmbNiveau1) så får data fra to forskellige tabeller afhængig af hvad der er vagt i to optionButton. Hvis jeg f.eks. vælger optionButton 1, så vises data der fremgår af tabel1. Mit problem er så, at jvis jeg i stedet for optionButton 1 vælger 2, så fremgår data fra tabel 1 og 2 i min comboBox.
Er det muligt at tilføje et element til min kode i OptionButton 1 og 2, at når man klikker på dem, så skal den nulstille AddItem.
Har prøvet med cmbNiveau1.value ="", men det fungerer ikke.
pft.
Nedenfor fremgår min kode:
Private Sub opbAktiver_Click()
Dim c As Range
If Me.opbAktiver.Value = True Then
Me.cmbNiveau1.Enabled = True
cmbNiveau1.Value = ""
Me.cmbNiveau2.Enabled = False
cmbNiveau2.Value = ""
Me.cmbNiveau3.Enabled = False
cmbNiveau3.Value = ""
For Each c In [tblGruppe3a[Aktiver]].Cells
cmbNiveau1.AddItem c.Value
Next
End If
End Sub
Private Sub opbPassiver_Click()
Dim c As Range
If Me.opbPassiver.Value = True Then
cmbNiveau1.Value = ""
Me.cmbNiveau1.Enabled = True
cmbNiveau2.Value = ""
Me.cmbNiveau2.Enabled = False
cmbNiveau3.Value = ""
Me.cmbNiveau3.Enabled = False
For Each c In [tblGruppe3p[Passiver]].Cells
cmbNiveau1.AddItem c.Value
Next
End If
End Sub