Aanpassen validatie

[danny147]

Beste,

Onderstaande code werkt perfect met volgende gegevens: myName1 = "RM-1_RE-1"

    For Each cl In Range("H" & iRowStart + 1, "H" & iRowEinde)
      If cl <> "" Then
       Select Case cl
           Case Split(myName1, "_")(0)
            cl.Offset(, 0).Font.Color = -4165632
            cl.Offset(, 5).Validation.Delete
            cl.Offset(, 5).Validation.Add 3, 1, , "=" & Replace(cl, "-", "_")
           Case Split(myName1, "_")(1)
            cl.Offset(, 0).Font.Color = -13321973
            cl.Offset(, 5).Validation.Delete
            cl.Offset(, 5).Validation.Add 3, 1, , "=" & Replace(cl, "-", "_")
        End Select
      End If
     Next cl

Mijn volgende gegevens zijn: myName2 = "RM_RE"
Met onderstaande code werkt het niet omdat ik niet weet wat er aangepast moet worden in de regel Replace(cl, "-", "_")

    For Each cl In Range("H" & iRowStart + 1, "H" & iRowEinde)
      If cl <> "" Then
       Select Case cl
           Case Split(myName2, "_")(0)
            cl.Offset(, 0).Font.Color = -4165632
            cl.Offset(, 5).Validation.Delete
            cl.Offset(, 5).Validation.Add 3, 1, , "=" & Replace(cl, "-", "_")
           Case Split(myName2, "_")(1)
            cl.Offset(, 0).Font.Color = -13321973
            cl.Offset(, 5).Validation.Delete
            cl.Offset(, 5).Validation.Add 3, 1, , "=" & Replace(cl, "-", "_")
        End Select
      End If
     Next cl

 

[danny147]

Beste,

Oplossing gevonden:

    For Each cl In Range("H" & iRowStart + 1, "H" & iRowEinde)
      If cl <> "" Then
       Select Case cl
           Case Is = "RM"
            cl.Offset(, 0).Font.Color = -4165632
            cl.Offset(, 5).Validation.Delete
            cl.Offset(, 5).Validation.Add 3, 1, , "=RM"
           Case Is = "RE"
            cl.Offset(, 0).Font.Color = -13321973
            cl.Offset(, 5).Validation.Delete
            cl.Offset(, 5).Validation.Add 3, 1, , "=RE"

        End Select
      End If
     Next cl