Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Vergleich von zwei Listen und Ausgabe eines Wahrheitswertes

Gruppe

Bereich

Problem

Die benutzerdefinierte Funktion in Zelle C1 soll prüfen, ob alle Werte im Bereich A in Bereich B enthalten sind.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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