Werkbladen zichtbaar maken bij invoeren van bepaalde tekst

Status
Niet open voor verdere reacties.

bgerco

Gebruiker
Lid geworden
10 okt 2007
Berichten
64
Hoi,

Ik ben op zoek naar iemand die mij kan helpen met Excel VB. 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?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan