Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Überprüfung auf Übereinstimmung und Anzeige in MsgBox

Gruppe

Vergleich

Problem

Wie kann ich die Werte in Spalte A vergleichen und bei Übereinstimmung in einer MsgBox anzeigen lassen?

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

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