Zwei Tabellen vergleichen

[rene_s_97]

Hallo liebe Leute,

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...

Hat jemand eine Idee? 
Bin für alles offen  :19:

LG
Rene

[Fennek]

Hallo,

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

End Sub

Wenn Du damit nicht zurecht kommst, melde dich.

mfg

[rene_s_97]

Hallo,

danke für die Antwort!

Habe den Code eingefügt.
Leider kenne ich mich mit VBA nicht aus  :22: 

Beim ausführen kommt: Fehler beim Kompilieren: Unzulässiger oder nicht ausreichend definierter Verweis.

Dann markiert es das .Cells nach "Then" 


Hast du einen Vorschlag?  :19:

LG

[Igelbauer]

Hi,
Bin auch alles andere als Profi, aber der Punkt vor dem Cells dürfte meines Wissens nicht sein.
Lass den mal weg. Nur so geraten

Igel

[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 


[rene_s_97]

Hallo,

Hat mir sehr geholfen!
Danke!!

LG