IF voorwaarde in een validation (list)

[Excellerend]

Beste forumgangers,

Waarschijnlijk voor de meeste een eenvoudige vraag, maar ik heb na flink aantal pogingen de moed opgegeven wetende dat een gemiddelde forumlid mijn 'probleem' zo oplost!

Ik heb ik de bijlagen een voorbeeld excel-bestand toegevoegd (Bekijk bijlage Voorbeeld.xls).

Vraag; ik heb een 2tal kolommen, (de gele velden) in beide moet men kiezen uit een (validation) list. Nu wil ik er enkel voor zorgen dat als men in rij E voor 'Vervoer' kiest men in rij F geen keuze meer krijg uit de list maar direct de waarde 'Trein' ingevuld wordt. Ik gebruik de onderstaande code, deze werkt perfect bij de eerste regel (Kies Vervoer in E10), maar bij alle navolgende rijen loopt excel vast (soort van loop denk ik..)

Hebben jullie de oplossing en/of andere ideeen?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Set rng = Range("E10:E13")
    For Each cell In rng
    If cell.Value = "Vervoer" Then
    cell.Offset(0, 1).Value = "Trein"
    End If
    Next cell
End Sub

BVD,
Peter

 

[edmoor]

Doe het eens zo:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Range("E10:E13")) Is Nothing Then
        If Target = "Vervoer" Then
            ActiveCell.Offset(0, 1).Value2 = "Trein"
        End If
    End If

End Sub

 

[Excellerend]

edmoor,

Beter laat dan nooit (dankzij vakantie etc.), ontzettend bedankt voor je reactie. Oplossing werkt perfect!

MvG,
Peter

 

[edmoor]

Graag gedaan.
En vakantie is veel belangrijker dan Excel