gegevens validatie uit meerdere kolommen

[bakerman]

Daar was ik al een beetje bang voor. Zoals DJ al zei, VBA en Mac is soms een moeilijk verhaal.

 

Zoals ik het zie heb je drie mogelijkheden.

 

1) Gebruik de 1ste methode die ik gepost heb. Probleem hiermee is dat kolom E en F gelijk gevuld moeten zijn want anders

    krijg je een hoop lege rijen in je validatielijst.

 

2) Gebruik onderstaande code ipv de vorige maar dan heb je nog steeds die extra kolom die je wil vermijden.

 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E:F")) Is Nothing Then
        sn = Range("E1").CurrentRegion.Value
        With New Collection
            For i = 1 To UBound(sn)
                For j = 1 To 2
                    If sn(i, j) <> vbNullString Then .Add sn(i, j), "k" & .Count
                Next
            Next
            Range("Z1").CurrentRegion.ClearContents
            Application.EnableEvents = False
            For i = 1 To .Count
                Cells(i, 26) = .Item(i)
            Next
            Application.EnableEvents = True
        End With
        ThisWorkbook.Names.Add "myList", Range("Z1").CurrentRegion
    End If
End Sub

 

3) Vervang de validatielijst door een Combobox zodat je de waarden rechtstreeks in de CB-lijst kan zetten.

 

De keuze is aan jou, laat maar iets weten.