Vergleich zweier Zeilen

Sub check_values()
Dim Check1 As String 'dienen als Platzhalter für die MsgBox
Dim Check2 As String
Dim i As Integer
' diese For Schleife findet falsche Werte nicht. Werte in Tabelle1!A1:AB1 und Stammdaten!A24: _
AB24
For i = 1 To 50 Step 1
If Sheets("Tabelle1").Cells(1, i).Value = Sheets("Stammdaten").Cells(24, i).Value Then  _
Check1 = "Werte ""Tabelle1"" ok"
Next i
i = 0
'In dieser For Schleife  wird die Schleife beim ersten "Wahr" ereignis beendet.
'Werte in Tabelle2!A1:AB1 und Stammdaten!A26:AB26
For i = 1 To 50 Step 1
If Sheets("Tabelle2").Cells(1, i).Value = Sheets("Stammdaten").Cells(26, i).Value Then
Check2 = "Werte ""Tabelle2"" ok"
Else: Check2 = "Werte ""Tabelle2"" falsch"
End If
Next i
i = 0
MsgBox Check1 & VbCr & Check2 , vbOKOnly, "Datencheck"
End Sub