activex combobox vullen met bladnamen

[tobo100]

Goedenavond allemaal,
ik heb een probleem een combobox
op zich werkt het goed maar, iedere keer dat de combobox gebruikt word
komen alle bladnamen er opnieuw bij (blijft vullen met bladnamen)
ik probeer dit te voor komen met "combobox1.clear" maar dan blijft de combobox leeg
iemand een idee hoe dit verholpen kan worden


Bekijk bijlage comboboxMap1.xlsm

 

[VenA]

Zo?

Private Sub Worksheet_Activate()
  For Each sh In Sheets
    If InStr("Blad1Bblad7Blad8", sh.Name) = 0 Then c00 = c00 & "|" & sh.Name
  Next sh
  ComboBox1.List = Split(Mid(c00, 2), "|")
End Sub

 

[SjonR]

Je hebt het vullen van de Combobox in een click_event geregeld. Dus logisch dat er bij elke klik weer bladnamen bijkomen. Waarom niet in Workbook_open of sheet_activate event?

VenA had het al weer opgelost, althans bijna :

Private Sub Worksheet_Activate()
  For Each sh In Sheets
    If InStr("Blad1[COLOR="#FF0000"]B[/COLOR]lad7Blad8", sh.Name) = 0 Then c00 = c00 & "|" & sh.Name
  Next sh
  ComboBox1.List = Split(Mid(c00, 2), "|")
End Sub

 

[tobo100]

Het is opgelost
Heren dank u voor uw tijd en moeite !!