Thema: Überprüfung auf Übereinstimmung und Anzeige in MsgBox

StandardModule: basMain

Sub ControlsTest()
   Dim arr(1 To 18)
   Dim iCounter As Integer, iScnd As Integer
   For iCounter = 1 To 18
      arr(iCounter) = Cells(iCounter, 1)
   Next iCounter
   For iCounter = 1 To 18
      iScnd = iCounter + 1
      Do Until iScnd >= 18
         If arr(iCounter) = arr(iScnd) Then
            MsgBox _
               prompt:="Wert " & iCounter & _
               " ist gleich Wert " & iScnd
         End If
         iScnd = iScnd + 1
      Loop
   Next iCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Vergleich