combobox leegmaken

[benootnv]

hallooo,

ik zit met een klein vba probleempje.
eventjes schetsen : ik heb een formulier met een combobox en een knop
als ik in de combobox iets selecteer en op de knop klik komt het in een bepaalde cel in excel.

Als ik nu het formulier opnieuw open moet de reeds geselecteerde waarde uit de combobox verdwenen zijn, zolang ofdat hij in excel staat.

heeft er hier iemand voor suggesties om dit laatste deel te programmeren?

yooo

bedankt

 

[Wigi]

Wellicht bedoel je:

naamvanhetformulier.naamvandecombobox.Clear

Wigi

 

[benootnv]

halloo

Wigi de code dat jij geeft had ik ook al geprobeerd, maar dan leegt hij de volledige combobox, terwijl hij enkel de waardes uit de combobox moet halen die ook al op het excelblad staan

mvg

Benootnv

 

[Jans__@hotmail]

Tijdens het vullen van de combobox checken of de waarde al voorkomt in het excelblad


Zet in Kolom A de waardes welke in de combobox moeten komen
Dus bv
Appels
Peren
Pruimen
etc
etc

In het onderstaande voorbeeld wordt gekeken in kolom D of daar teksten staan die gelijk zijn aan teksten uit kolom A, is dat het geval dan worden ze niet in de combobox geladen.
Kan de tekst niet gevonden worden in kolom D dan wordt deze in de combobox gezet.

Succes

Jans


Private Sub Userform_Initialize()
Dim TekstGevonden As Boolean
Dim LaatsteRij

LaatsteRij = Cells.SpecialCells(xlLastCell).Row


For Each c In ActiveSheet.Range("A:A")
TekstGevonden = False
If c.Row > LaatsteRij Then Exit For

If c.Text <> "" Then

For Each d In ActiveSheet.Range("D")
If d.Row > LaatsteRij Then Exit For
If d.Text = c.Text Then
TekstGevonden = True
Exit For
End If
Next d

If TekstGevonden = False Then ComboBox1.AddItem c.Text
End If
Next c


End Sub

 

[Wigi]

Jans__@hotmail, de 2de lus door kolom D kan je gemakkelijk vergemakkelijken door een Find statement. Dat is performanter als het over redelijk wat rijen gaat.

Wigi

 

[Jans__@hotmail]

Goeie tip ga ik onthouden, met de bedoeling om het dan ook werkelijk toe te passen.


Thnx