Inhoud cel aan label koppelen

[Wizwat]

Misschien meer een vraag voor het VBA forum..?

Ik wil het volgende:
Als in cel A1 een bepaalde waarde staat (bijv. 1000) dan wil ik dat een label 'visible' wordt.
Ik weet niet hoe ik de waarde aan de cel moet koppelen.

Heeft iemand een helpende hand?

Groet!

 

[RGTMO]

Als je met een label een tekst in een andere cel bedoelt kun je dit proberen:
=ALS(A1=1000;"visible";"")

A1 is hier de cel waar de waarde 1000 in kan staan. Als dat er staat dan wordt de waarde van de cel waar deze formule in staat "visible".

 

[Wizwat]

Dank je maar ik bedoel geen andere cel maar het besturingselement 'label'.

Heb je een oplossing?

 

[Demeter]

mmmmmmmmm

Bedoel je zoiets.

groet,
Ferenc

 

[Wizwat]

Ok, dat is ook heel handig om te weten (wist niet dat het kon).

Wat ik bedoel is misschien gemakkelijker via een bestandje uit te leggen. Die bijgaande file. Als ik nu in cel C4 een waarde invoer die groter of gelijk is aan 1000 wil ik dat label1 zichtbaar is.
Als de waarde kleiner is dan 1000 mag label 1 niet zichtbaar zijn.

 

[Spiderman]

Hoi Wizwat,

Misschien dat je hier iets aan hebt.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
    If Val(Target) >= 1000 Then 'Val zet een string(tekst) om in een getal
        Label1.Visible = True
    Else
        Label1.Visible = False
    End If
End If
End Sub

Suc6

 

[Wizwat]

Arno,

Dat is exact wat ik bedoel!! Dank je wel!

Groet,
Jasper

 

[Demeter]

Netjes Spidie zo leer ik ook weer eens wat.

Wizwat zou jij je vraag op opgelost willen zetten? thanks.


Groet,
Ferenc

 

[Wigi]

Indien gewenst kan de 2de IF ingekort worden:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
Label1.Visible = (Val(Target) >= 1000)
End If
End Sub

Wigi