Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen UDF und Bereich