Keuzelijst of geen keuzelijst

[KevinB21]

Hallo,

Ik ben bezig met een Excel model en ik loop tegen een probleem aan.
Ik heb even een voorbeeld gemaakt om mij probleem wat beter te kunnen uitleggen.
De blauwe en oranje cel zijn beide een keuzelijst. Maar ik wil dat de gebruiker kan kiezen tussen ja of nee.
Waarbij Ja is dat de oranje cel dezelfde waarde krijgt als de blauwe cel.
Als degene nee invult dan moet er zelf nog een keuze gemaakt worden voor oranje

In de afbeeldingen hieronder kun je de situatie zien en de formule die ik heb geprobeerd (wat dus niet werkt). Ik heb ook het voorbeeld bestand toegevoegd.

Ik ben benieuwd of dit mogelijk is en hoe dit dan zou moeten!

Alvast bedankt!

 

[AHulpje]

Plak deze achter Blad1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$3" Then
        If Range("A1") = "ja" Then Range("B3") = Range("A3")
    ElseIf Target.Address = "$A$1" Then
        If Target = "ja" Then Range("B3") = Range("A3")
    End If
End Sub

En als je niet weet hoe dat moet zie bijlage.

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Address = "$A$1" Or Target.Address = "$A$3") And Range("a1") = "ja" Then Range("B3") = Range("A3")
End Sub

 

[jgkdrt]

Je kunt ook deze code gebruiken.
Deze zorgt er ook voor dat B3 niet gewijzigd kan worden als A1 op "ja" staat en als in A1 "nee" wordt gekozen, dan wordt B3 leeggemaakt en moet daar dus nog een keuze gemaakt worden.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Select Case Target.Address
        Case "$A$1"
            If Me.Range("A1") = "ja" Then
                Me.Range("B3").Value = Me.Range("A3").Value
            Else
                Me.Range("B3").ClearContents
            End If
        Case "$A$3", "$B$3"
            If Me.Range("A1") = "ja" Then
                Me.Range("B3").Value = Me.Range("A3").Value
            End If
    End Select
    Application.EnableEvents = True
End Sub

 

[HSV]

Me. is geheel overbodig.