Sub MovingAverage2_2()
Dim iRowTab As Integer
Dim xTab2 As Variant, xTab4 As Variant
Dim n As Integer
With Worksheets("Tabelle2")
iRowTab = .Cells(Rows.Count, 1).End(xlUp).Row
xTab2 = .Range("A2:B" & iRowTab).Value
End With
With Worksheets("Tabelle4")
xTab4 = .Range("A2:B" & iRowTab).Value
End With
For n = 1 To UBound(xTab2, 1)
If xTab2(n, 1) <> xTab4(n, 1) Then
MsgBox "Werte aus Zeile " & (n + 1) & " sind nicht ident."
End If
Next n
For n = 1 To UBound(xTab2, 1)
If (xTab2(n, 1) & xTab2(n, 2)) <> (xTab4(n, 1) & xTab4(n, 2)) Then
MsgBox "Werte aus Zeile " & (n + 1) & " sind nicht ident."
End If
Next n
End Sub