|
Hallo Dennis
Noch eine kürzere Möglichkeit
Sub MovingAverage2_2()
Dim iRowTab As Integer
Dim xTab2 As Variant, xTab4 As Variant
Dim n As Integer
' ******** Tabelle 2
With Worksheets("Tabelle2")
iRowTab = .Cells(Rows.Count, 1).End(xlUp).Row ' letzte Zeile Tabelle2 der Spalte A
xTab2 = .Range("A2:B" & iRowTab).Value ' Werte Spalte A in Array
End With
' ******** Tabelle 4
With Worksheets("Tabelle4")
xTab4 = .Range("A2:B" & iRowTab).Value ' Werte Spalte B in Array
End With
' Irgendwelche Vergleiche
' z.B.: Nur Spalte A von Tabelle2 und Tabelle4 werden überprüft
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
' z.B.: Zusammengesetzte Werze Tabelle2 und Tabelle4 werden überprüft
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
mfg, GraFri
|