Label vullen a.d.h.v. celwaarde

[Norman Scheuter]

Hoi,

Ik krijg het niet voor elkaar om in "label28"en "Label29" achter "FSC ja/nee" de waarde in deze labels uit de cel (C1 en C2 ) van blad 3 geplaatst te krijgen.
Het gaat steeds net verkeerd om.
Als ik Nee invul plaatst hij een waarde in de labels.
Deze waarde moet in deze labels als ik "Ja" aanvink.

Kan iemand me hier mee helpen.

 

[alphamax]

Private Sub UserForm_Activate()
    UserForm1.Label28.Caption = Sheets("Invulblad").Range("C1").Value
    UserForm1.Label29.Caption = Sheets("Invulblad").Range("C2").Value
End Sub

 

[Norman Scheuter]

Private Sub UserForm_Activate()
    UserForm1.Label28.Caption = Sheets("Invulblad").Range("C1").Value
    UserForm1.Label29.Caption = Sheets("Invulblad").Range("C2").Value
End Sub

Hoi Alphamax,

Blijft hetzelfde
Als ik ja/nee heen en weer aanklik, komt de tekst alleen in de 2 labels ( in het Userform ) als ik op Nee klik.
Tijdens het openen lijkt het goed te gaan, maar als je vervolgens blijft klikken op ja/nee toont hij het alleen maar als je op nee klikt.

Gr. Norman

 

[alphamax]

Gebruik UserForm_initialize die loopt alleen de eerste keer bij het openen en daarna niet meer.

'Private Sub OptionButton1_Click()
'Call UserForm_Activate
'End Sub
'Private Sub OptionButton2_Click()
'Call UserForm_Activate
'End Sub
Private Sub UserForm_initialize()
    Label28.Caption = Blad3.Range("C1").Value
    Label29.Caption = Blad3.Range("C2").Value
End Sub

 

[HSV]

Of:

Haal die formules uit cel C1 en C2 weg en zet alleen de tekst erin.
Maak de Controlsource van beide buttons leeg en zet de values in de eigenschappen op false.

Private Sub OptionButton1_Click()
 Label28.Caption = Blad3.Range("C1").Value
 Label29.Caption = Blad3.Range("C2").Value
End Sub

Private Sub OptionButton2_Click()
 Label28.Caption = ""
 Label29.Caption = ""
End Sub

 

[Norman Scheuter]

Dank Alphamax en HSV,

@ Alphamax, ik had het eerst geprobeerd met "initialize"
helaas werkte dat ook niet.

HSV, ik heb deze gebruikt, wel deels.
Omdat het invulblad straks als import gaat gelden, moet ik wel de formule laten staan in de 2 cellen.
Ik heb 2 andere cellen gevuld met de betreffende tekst en de verwijzing naar deze cellen gegeven.
Heb de cellen ook een naam gegeven en daar naar verwezen, dan blijft hij altijd kijken naar deze 2 teksten.
Niet dat straks er in eens een kolom tussenkomt.....

Beide dank voor jullie hulp :thumb:

Gr. Norman