Gruppe
Allgemein
Problem
Die Werte-Bereiche der Spalten D:G sollen nacheinander mit Spalte A verglichen werden. Das Ergebnis wird in den Bereich E12:E16 eingetragen.
StandardModule: basMain
Sub MultiMatch()
Dim iCol As Integer
Dim rngFirst As Range, rngSecond As Range
Set rngFirst = Range("A1:A10")
For iCol = 3 To 7
Set rngSecond = Range(Cells(1, iCol), Cells(10, iCol))
Cells(iCol + 9, 5) = BereichVergleich(rngFirst, rngSecond)
Next iCol
End Sub
Private Function BereichVergleich( _
rngEins As Range, rngZwei As Range _
) As Boolean
Dim rng As Range
Dim iCount As Integer
Dim Schalter As Boolean
For Each rng In rngEins.Cells
iCount = iCount + 1
If rng <> rngZwei.Cells(iCount) Then
Schalter = True
Exit For
End If
Next rng
If Schalter = False Then BereichVergleich = True
End Function