Wie soll das die zwei Tabellen erkennen, irgendwie stehe ich auf Schlauch.
Da musst Du durch :)
Pack mal folgenden Code in eine separate Arbeitsmappe.
With Application
If (Join(.Transpose(Range("C4:C15")), vbNullString) = Join(.Transpose(Range("D4:D15")), vbNullString)) = True Then
'*** //TODO
MSGBOX "Tabellen sind identisch.", vbInformation
Else
MsgBox "Tabellen sind nicht identisch", vbCritical
End If
End With
Versuch 1:
Schreibe in C4:C15 nur einsen.
Schreibe in D4:D15 nur einsen.
= Lass den Code laufen.
Versuch 2:
Schreibe in C4:C15 nur einsen.
Schreibe in D4:D14 nur einsen, aber in D15 eine zwei.
= Lass den Code laufen.
Fällt Dir was auf?
Anstelle nur C4:C15 mit D4:D15 in derselben Mappe zu vergleichen, kannst Du auch (gleichgrosse; einspaltige Bereiche) aus verschiedenen Mappen vergleichen.
|