Combobox probleem

[gorki5]

Beste Edmoor,

Ik zit met een soortgelijk probleem als in de volgende thread: http://www.helpmij.nl/forum/showthr...n-weergeven-bij-quot-ja-quot-of-quot-nee-quot. Ook met een dropdown-list Maar in mijn geval zou bij een input van bv "Siemens SJ64" zowel rijen 7 tot 102, als rijen 144 tot 500 moeten verdwijnen. Bij mijn poging hieronder krijg ik geen foutmelding in VB, maar het werk ook niet in Excel.

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("103:500").EntireRow.Hidden = Range("E4").Value = "Siemens 7SD5"
Rows("7:102").EntireRow.Hidden = Range("E4").Value = "Siemens 7SJ64"
Rows("144:500").EntireRow.Hidden = Range("E4").Value = "Siemens 7SJ64"
Rows("7:145").EntireRow.Hidden = Range("E4").Value = "..."
Rows("141:500").EntireRow.Hidden = Range("E4").Value = "..."

End Sub


Graag een oplossing. In bijlage vind je het desbetreffende excel-Bekijk bijlage Bev. ONTWERPFASE met macro's (2).xlsmbestand

Alvast bedankt
Mvg

 

[mastermindzh]

Beste Gorki5,

Zoals edmoor al netjes heeft beschreven is het inbreken op andermans vraag niet gewenst.
Ik heb uw vraag nu een eigen plekje gegeven en de link naar de vorige thread erbij gezet.

Dit alles wel met de vraag of u dit een volgende keer zelf wilt regelen.

 

[HSV]

Je code per regel werkt goed, alleen wordt het weer opgeheven door de ander.
Stel ik zet E4 op 'Siemens 7SJ64'.

Rows("7:102").EntireRow.Hidden = Range("E4").Value = "Siemens 7SJ64"

De rijen worden verborgen.

Maar onderstaande regel maakt ze weer zichtbaar.

Rows("7:102").EntireRow.Hidden = Range("E4").Value = ". . ."

Zo kan het wel.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Then
 Rows.Hidden = False
     Select Case Target
         Case "Siemens 7SD5"
          Rows("103:500").Hidden = True
         Case "Siemens 7SJ64"
          Rows("7:500").Hidden = True
         Case "..."
          Rows("7:500").Hidden = True
     End Select
End If
End Sub

 

[edmoor]

TS had er zelf al een eigen topic van gemaakt waar ik al had gereageerd:
http://www.helpmij.nl/forum/showthr...erbergen-in-Excel-met-quot-dubbel-quot-bereik

Er zit dus nog een ander probleem in de controle.

 

[HSV]

Die heb ik ergens gemist Ed.
Zo te zien zitten we op dezelfde lijn.

 

[edmoor]

Yep
En die drie puntjes als enkel teken (Elypsis) zal er door een autocorrectie of zo ingeslopen zijn.