Gruppe
UDF
Problem
Die benutzerdefinierte Funktion in Zelle C1 soll prüfen, ob alle Werte im Bereich A in Bereich B enthalten sind.
StandardModule: Modul1
Function IstKomplett(rngA As Range, rngB As Range) As Boolean
Dim rng As Range
Dim var As Variant
Dim bln As Boolean
For Each rng In rngA
var = Application.Match(rng.Value, rngB, 0)
If IsError(var) Then
bln = True
Exit Function
End If
Next rng
IstKomplett = Not bln
End Function