Combobox werkt niet meer

[mrnico]

Hallo ik heb een probleem nadat ik een Combobox onzichtbaar heb gemaakt

en vervolgens weer zichtbaar

via
ComboBox38.Visible = False
ComboBox38.Visible = True

werkt de combo box niet meer heeft iemand hier een oplossing voor

 

[snb]

Als deze invoerlijst niet meer werkt ligt het niet aan de getoonde VBA-opdrachten.

 

[gast0660]

We zullen toch wat meer moeten weten vrees ik.
een vb bestandje doet wonderen.

 

[mrnico]

Hallo hier een voorbeeld bestand

de fout komt in blad 2

als je op blad 1 de combobox van b naar a weizigt

Bekijk bijlage comboverb.xlsm

 

[HSV]

Hij is er wel hoor, het staat alleen thv. D21.

 

[mrnico]

Daar komt hij bij mij wel in beeld als ik op de andere probeer te klikken maar kan er niks meer mee na dat hij weggeweest is dat is het probleem

 

[HSV]

Bij mij werkt de combobox nog wel.

 

[mrnico]

Ook nadat je op blad 1 een keer a gekozen hebt naar blad 2 gegaan bent en dan blad 1 weer terug op a gezet hebt

 

[HSV]

Ja, waarde in de combo in blad1 meerdere malen veranderd > Excel 2007.

 

[mrnico]

Ik gebruik 2013

Ik kan na hem 1 keer verborgen te hebben niks meer er mee doen

 

[HSV]

Probeer het eens.

ActiveSheet.Protect "123", , , , true

 

[mrnico]

Helpt niks

 

[HSV]

Het lijkt alsof je design mode (ontwerpmodus) aanblijft.
Draai deze eens als het niet meer werkt.

sub hsv()
Application.CommandBars("Exit Design Mode").enabled =true
end sub

 

[mrnico]

Helpt ook niet

 

[gast0660]

Hoi,
In vbtje postje #4 staat combo op Locked true; zet die op false, nadien code van #13 laten lopen; ik heb dezelfde indruk.

 

[HSV]

Licht de ontwerpmodus ook op als die niet meer werkt?

 

[mrnico]

Nee die licht niet op

 

[HSV]

Dat staat standaard altijd op 'True' Philiep.

Maak eens een nieuw bestand voor jezelf, en kijk of het zich daar ook in voordoet.
Misschien is het bestand corrupt geworden.

Zoals ik al schreef; hier werkt het goed.

 

[mrnico]

Nee werkt ook niet een raar probleem dus misschien dat een ander het probleem wel heeft

 

[VenA]

Werkt hier ook zonder problemen in Xl-2010

Maak van het het element eens een ActiveX element. Maak van code eerst code die werkt en begin dan eens met wachtwoorden te rommelen.

Private Sub Worksheet_Activate()
  'Unprotect "123"
  Rows("10:20").Hidden = Sheets("Blad1").ComboBox1 = "A"
  ComboBox1.Visible = Sheets("Blad1").ComboBox1 = "B"
  ComboBox1.List = Range("K2:K3").Value
  'Protect "123"
End Sub