und zwar würde ich gerne, wie oben genannt, zwei Tabellen vergleichen.
Ich habe jeweils einen Preis und den dazugehörigen Namen.
Meine Absicht ist es, herauszufinden wo diese zwei Werte von der Tabelle daneben abweichen.
Die angefügte Datei dient nur zur Veranschaulichung, die Liste ist um einiges länger und ich habe ein paar Listen zu vergleichen. Würde Tage dauern diese manuel zu vergleichen - somit möchte ich dieses Verfahren sozusagen "automatisieren".
Eine Auswertung dazu wär schön - was sich unterscheidete an den zwei Tabellen..
Habs mit Spreadsheet-Compare versucht - leider vergeblich...
diesen Code hatte ich vor einigen Tagen für eine andere Frage entwickelt und jetzt leicht angepasst, aber nicht getestet:
Code:
Sub F_en()
'Daten an Array übergeben With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Cells(1).CurrentRegion.Copy .GetFromClipboard Alt = Split(.GetText, vbCrLf)
Application.CutCopyMode = False
Sheets("Neu").Cells(1,4).CurrentRegion.Copy
.GetFromClipboard Neu = Split(.GetText, vbCrLf)
Application.CutCopyMode = False
End With
'Alt For i = 1 To UBound(Alt) If IsError(Application.Match(Alt(i), Neu, 0)) Then .Cells(i + 1, 1).Interior.Color = vbRed End If Next i
15.10.2018, 19:04 (Dieser Beitrag wurde zuletzt bearbeitet: 15.10.2018, 19:07 von Flotter Feger.)
Hallöchen,
@Igelbauer: kein 2CV ? Schade. :17:
So klappt's ... hab dir den Code angepasst.
PHP-Code:
Sub F_en() Dim Alt As Variant Dim Neu As Variant Dim i As Long
'Daten an Array übergeben' With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Copy .GetFromClipboard Alt = Split(.GetText, vbCrLf) Application.CutCopyMode = False
Sheets("Tabelle1").Cells(1, 4).CurrentRegion.Copy .GetFromClipboard Neu = Split(.GetText, vbCrLf) Application.CutCopyMode = False End With
'Alt' For i = 1 To UBound(Alt) If IsError(Application.Match(Alt(i), Neu, 0)) Then Sheets("Tabelle1").Cells(i + 1, 1).Interior.Color = vbRed End If Next i End Sub