VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Überprüfung auf Übereinstimmung und Anzeige in MsgBox

Gruppe

Allgemein

Bereich

Vergleich

Thema

Überprüfung auf Übereinstimmung und Anzeige in MsgBox

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

    


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