Keuzeschema Maken

[trucker10]

Mark , sorry ik had de vraag niet perfect begrepen probeer het met deze macro achter je tabblad " uitrekenblad" te zetten , druk Alt F11 of rechtermuisklik op de tab van het blad en zet deze macro daar .

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    
    If Target.Address = "$C$1" Then
        Range("C3").Formula = "Vul gewicht in"
    Else
        Range("C3").Formula = ""
    End If
    
    Application.EnableEvents = True
End Sub

en nu is het aan de vba'ers om deze bij te werken

 

[markvanturnhout]

bedankt, zit er nu goed uit. En nu ik dit heb gezien heb ik de vraag, kan ook zoiets met de landenkeuze, dus leeg= Vul land in.?

is niet noodzakelijk, maar als we dan toch bezig zijn....

 

[trucker10]

als we dan toch bezig zijn....

Zou het zo kunnen zijn

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    
    If Target.Address = "$C$1" Then
        Range("C2").Formula = "Vul land in"
        Range("C3").Formula = "Vul gewicht in"
    Else
        Range("C2:C3").Formula = ""
    End If
    
    Application.EnableEvents = True
End Sub