VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Prüfung, ob Parallelzellen übereinstimmen

Gruppe

Allgemein

Bereich

Vergleich

Thema

Prüfung, ob Parallelzellen übereinstimmen

Problem

Wie kann ich mir durch eine MessageBox anzeigen lassen, welche Werte in den Spalten A und B übereinstimmen und welche nicht?

Lösung

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




StandardModule: basMain

Sub NamensVergleich()
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      If Cells(iRow, 1).Value = Cells(iRow, 25).Value Then
         MsgBox "Namen in Zeile " & iRow & " stimmen überein!"
      Else
         MsgBox "Namen in Zeile " & iRow & " stimmen nicht überein!"
      End If
      iRow = iRow + 1
   Loop
End Sub

    


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