Gruppe
UDF
Bereich
Bereich
Thema
Bereiche auf Übereinstimmung vergleichen
Problem
Wie kann ich feststellen, ob zwei Bereiche identische Werte haben?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain
Function BereichVergleich(rngEins, rngZwei) As Boolean
Dim rngCell As Range
Dim iCounter As Integer
Dim bln As Boolean
For Each rngCell In rngEins
iCounter = iCounter + 1
If rngCell <> rngZwei.Cells(iCounter) Then
bln = True
Exit For
End If
Next rngCell
If bln = False Then BereichVergleich = True
End Function