Gruppe
UDF
Problem
Wie kann ich feststellen, ob zwei Bereiche identische Werte haben?
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