tekstbox pas zien als label gevuld is

[schuurar]

beste,

Ik heb op een userform labels staan die gevuld worden uit blad1
Daar achter staat een tekstbox die in gevuld moet worden.
Nu komt het wel eens voor dat een label niet gevuld word omdat de cel in bald 1 niet gevuld is.
Graag zou ik dan willen dat de tekstbox ook niet te zien is als het label leeg is.

Hoe kan ik het tekstbox op onzichtbaar zetten als het label niet gevuld is?

label1 ?????? tekstbox1.viseble = false

 

[emields]

zal zonder voorbeeldbestand moeilijk worden.

 

[schuurar]

zie voorbeeld

 

[edmoor]

Zo?

 

[JanBG]

Zo bij voorbeeld:

Private Sub UserForm_Initialize()
    Dim oCtl As Control
    Dim clsSpinEvent As CSpinEvent
    Label1 = Range("Blad1!b1")
    Label2 = Range("Blad1!b2")
    Label3 = Range("Blad1!b3")
    Label4 = Range("Blad1!b4")
    Label5 = Range("Blad1!b5")
    Label6 = Range("Blad1!b6")
    Label7 = Range("Blad1!b7")
    If Label1 = "" Then TextBox1.Visible = False
    If Label2 = "" Then TextBox2.Visible = False

Oplossing van edmoor is aanzienlijk mooier, completer en beter

 

[schuurar]

Jaaaaa te gek weer !!!!
Super bedankt! Staat net weer wat netter op het formulier!!

 

[edmoor]

Misschien dat je dit dan nog netter vind voor je formulier:


De hoogte wordt dan ook aangepast.

 

[E v R]

Paar goedbedoelde suggesties/opmerkingen:

• Waarom verbergen, je kunt zo ook toevoegen bij het inladen van jouw form (je hebt immers al een klassenmodule)
• In een TextBox kun je ook getallen of teksten invullen, het gaat hier blijkbaar om de waarde van de spinbutton, waarom geen Label?

 

[schuurar]

Dat is zeker een mooie aanvulling Edmoor!!
Top!
Die ga ik er ook in verwerken.
Dank je wel.