Gruppe
Allgemein
Problem
Wie kann ich mir durch eine MessageBox anzeigen lassen, welche Werte in den Spalten A und B übereinstimmen und welche nicht?
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