TextBox zichtbaar of niet

[LucBrands]

Hallo,

ik zou graag een TextBox zichtbaar maken en een andere TextBox onzichtbaar afhankelijk van de waarde in een bepaalde cel.

Probleemstelling:
Ik heb een excel file met meerdere tabbladen:
- met een tabblad genaamd "Report"
- een TextBox1 (met een equation/formule in)
- een TextBox2 (met een equation/formule in)

Indien nu Cel E9 groter is dan 0 dan moet TextBox2 zichtbaar zijn en TextBox1 onzichtbaar. Ik kan dit ook gewoon schrijven met een IF formule maar daar kan je geen TextBox in oproepen.
Dus deze formule werkt niet: =IF(E9>0;TextBox2;TextBox1)

Heel waarschijnlijk zal dit in VBA moeten geschreven worden (voor tabblad "Report") maar daar heb ik geen kaas van gegeten.
Kan iemand me hier mee helpen?

 

[Emil S]

zo iets?

 

[LucBrands]

zo iets?

Dit is niet wat ik zoek, deze oplossing kende ik al. Met deze oplossing kan ik niet verwijzen naar "professioneel" uitgeschreven formules. Zie wat ik bedoel in bijgevoegd voorbeeld.

Bekijk bijlage TextBox.xlsb

 

[edmoor]

Zet dit eens achter dat werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$9" Then
        With ActiveSheet
            Select Case Target.Value
                Case 0
                    .Shapes("TextBox1").Visible = False
                    .Shapes("TextBox2").Visible = True
                Case Is > 0
                    .Shapes("TextBox1").Visible = True
                    .Shapes("TextBox2").Visible = False
            End Select
        End With
    End If
End Sub

Er zijn kortere schrijfwijzen maar deze maakt het wel duidelijk.
Je moet wel even zorgen dat de textboxen de juiste naam hebben.

Je document:
Bekijk bijlage TextBox-1.xlsb

 

[LucBrands]

Zet dit eens achter dat werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$9" Then
        With ActiveSheet
            Select Case Target.Value
                Case 0
                    .Shapes("TextBox1").Visible = False
                    .Shapes("TextBox2").Visible = True
                Case Is > 0
                    .Shapes("TextBox1").Visible = True
                    .Shapes("TextBox2").Visible = False
            End Select
        End With
    End If
End Sub

Er zijn kortere schrijfwijzen maar deze maakt het wel duidelijk.
Je moet wel even zorgen dat de textboxen de juiste naam hebben.

Je document:
Bekijk bijlage 248571

Bedankt makker, dit is wat ik zoek. Geweldig!