Clever-Excel-Forum

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

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

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? Idea

:19:

LG

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

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 

Hallo,

Hat mir sehr geholfen!
Danke!!

LG

rene_s_97

Fennek

rene_s_97

Igelbauer

Flotter Feger

rene_s_97