Visible ComboBox blijft niet visible

[Geo261]

Hallo,

Ik heb een ComboBox en wanneer ik een selectie hierin maak wordt een tweede ComboBox zichtbaar. Het script hiervoor (zie onderstaand) werk prima alleen wanneer ik in het blad naar beneden scroll en iets anders aanklik, verdwijnt de tweede ComboBox weer.

Wie weet hoe ik dit kan verhelpen zodat de tweede box gewoon zichtbaar blijft?

Private Sub ComboBox21_Change()
FollowLink30 (ComboBox21.ListIndex)
End Sub

Private Sub FollowLink30(ByVal intIndex As Integer)
    Select Case intIndex
    Case 0
  With ComboBox18
   If ComboBox18 = True Then
    .Visible = ComboBox21.Value
    '.Activate
  Else
    .Visible = False
     .Activate
       End If
  End With
        End Select
    End Sub

 

[OctaFish]

Maak even een voorbeeldje, dat werkt wat makkelijker. En graag code opmaken met de knop Code (#), dan leest die wat makkelijker; want dan heb je ook je inspringingen op de goede plek staan.

 

[Geo261]

Combobox niet zichtbaar

Hi Michel,


Het lukt me niet om een .xls bestandje (27kb)toe te voegen. Moderaters een idee waarom niet?

Bijgaand het scriptje dan maar welke ik in het voorbeeld heb gebruikt.
Simpelweg twee combo's plaatsen en onder de eerste het script plakken. Sorry dat ik je geen voorbeeld kan sturen.

Private Sub ComboBox1_Change()
FollowLink1 (ComboBox1.ListIndex)
End Sub

Private Sub FollowLink1(ByVal intIndex As Integer)
Select Case intIndex
Case 0
With ComboBox2
If ComboBox2 = True Then
.Visible = ComboBox1.Value
.Activate
Else
.Visible = False
.Activate
End If
End With
Case 1
    ComboBox2.Visible = False
End Select
End Sub

Het probleem is niet dat de combobox niet zichtbaar wordt maar dat hij juist weer verdwijnt zodra je een cel aanklikt en naar beneden srolled. Wanneer je weer omhoog scrolled is de combo verdwenen.

Het lijkt me een fine-tune issue maar wat ik ook probeer... geen resultaat.

Graag je advies, alsvast bedankt!

Groet,
Ralph

 

[OctaFish]

Heb je al geprobeerd om het excel bestand eerst te zippen? Meestal lukt het dan wel om hem te posten.

 

[Geo261]

Administrators/moderators Help!

Beste,


Het lukt mij niet om .xls bijlages te uploaden op helpmij.nl.
Wanneer ik het bestand browse en vervolgens upload gebeurt er niets. Klik ik te vaak op een van de knoppen dan loop de pagina vast en moet ik explorer opnieuw opstarten.
Is dit probleem bekend?

Ook heb ik een tweede issue.. Ik word structureel na een paar minuten uitgelogd. Dit gebeurd ook als ik een pagina terug ga. Erg vervelend

Graag uw hulp

Groet,
Ralph

 

[Rap261]

Combobox Visible verdwijnt bij het scrollen

Michel,

vanuit huis hierbij het voorbeeldje.
zelf heb ik het probleem nog niet gevonden.

Groet,
Ralph

Bekijk bijlage Voorbeeld.xls

 

[Warme bakkertje]

Als je op Blad2 Zichtbaar en Niet zichtbaar van plaats wisselt heb je toch genoeg aan deze.

Private Sub ComboBox1_Change()
    ComboBox2.Visible = ComboBox1.ListIndex
End Sub

 

[Rap261]

Combobox Visible verdwijnt bij het scrollen

Heren,

Met jullie inspiratie heb ik uiteindelijk de oplossing gevonden.
Ik moest het toch zoeken in een Case scenario..

Private Sub ComboBox1_Change()
FollowLink1 (ComboBox1.ListIndex)
If ComboBox1.Value = "" Then ComboBox2.Visible = False
If ComboBox1.Value = "" Then ComboBox3.Visible = False
End Sub

Private Sub FollowLink1(ByVal intIndex As Integer)
Select Case intIndex
Case 0
ComboBox2.Visible = True
ComboBox3.Visible = False
Case 1
ComboBox3.Visible = True
ComboBox2.Visible = False
End Select
End Sub

Achteraf vrij logisch maar waarschijnlijk van de kaart gebracht door .Active en Else..

Dank en een prettig weekend!

Groet,
Ralph

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost.