Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bereiche auf Übereinstimmung vergleichen

Gruppe

Bereich

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