Werkbladen zichtbaar maken bij invoeren van bepaalde tekst

[bgerco]

Hoi,

Ik ben op zoek naar iemand die mij kan helpen met Excel. Ik heb een bestand met meerdere werkbladen. Hierin staan besteltekeningen. In het invulblad kan er gekozen worden voor de linksom of rechtsom variant. (dit gaat dmv een pull down menu met alleen deze 2 keuze mogelijkheden)

Nu wil ik graag dat als bv rechtsom gekozen wordt, de besteltekening van rechtsom zichtbaar wordt. Ik krijg dit alleen niet voor elkaar. Ik ben daarvoor bezig in VB met wat codes. Hieronder staat wat ik tot dusver heb, maar zoals je begrijpt werkt het niet. Ik krijg telkens een foutmelding in de code.

Sub Linksom_rechtsom()

If Range("E23").Text = "Rechtsom" Then
ActiveWorkbook.Sheets("Blad6").Visible = True
ActiveWorkbook.Sheets("Blad7").Visible = False
Else
ActiveWorkbook.Sheets("Blad6").Visible = False
ActiveWorkbook.Sheets("Blad7").Visible = True
End If

End Sub

Kan iemand mij helpen?

 

[Radjesh Klauke]

Als je de foutmelding er ook even bij zou plaatsen, maakt het een ieder een stuk makkelijker. Volgende keer beter.
Probeer dit eens

Sub Linksom_rechtsom()
    If Sheets("naam van blad").Range("E23").Value = "Rechtsom" Then
        with ActiveWorkbook
            .Sheets("Blad6").Visible = True
            .Sheets("Blad7").Visible = False
        end with
    Else
        with ActiveWorkbook
            .Sheets("Blad6").Visible = False
            .Sheets("Blad7").Visible = True
        end with
End If

 

[bgerco]

Hij gaf geen duidelijke foutmelding, maar probleem is nu wel verholpen!

Dank u vriendelijk!!!

 

[Wigi]

Wat korter

Sub Linksom_rechtsom()

    Sheets("Blad6").Visible = (Sheets("naam van blad").Range("E23").Value = "Rechtsom")
    Sheets("Blad7").Visible = Not Sheets("Blad6").Visible

End Sub

Wigi