Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte vergleichen und Ergebnis in Tabelle eintragen

Gruppe

Vergleich

Problem

Die Werte-Bereiche der Spalten D:G sollen nacheinander mit Spalte A verglichen werden. Das Ergebnis wird in den Bereich E12:E16 eingetragen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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