Hallo Gast,

nochmals vielen Dank für deine Unterstützung.

ich habe es jetzt hinbekommen das dieser Fehler nicht mehr vorkommt und somit das Programm fast richtig funktioniert. :)

Ich habe dazu diesen Teil aus dem Code genommen:

'die Zeile mit dem Eintrag suchen

        zeile = Application.WorksheetFunction.Match(suche, zwei.Columns(1), 0)

        'jetzt die Spaöte C bis I vergleichen.

        For j = 3 To 9

                If zwei.Cells(zeile, j) <> eins.Cells(2, j) Then        ' Werte unterscheiden sich

                    zwei.Cells(zeile, j).Interior.ColorIndex = 6        ' Wert markieren

                    eins.Cells(2, j).Interior.ColorIndex = 6            ' den Werte imAusgang auch markieren

                End If

        Next j

        'die erste Zelle des Eintrags markieren, damit man ihn gleich sieht, auf beiden Blätter

        eins.Cells(i, 1).Interior.ColorIndex = 6

        zwei.Cells(zeile, 1).Interior.ColorIndex = 6

        ' noch eine NAchricht

Mit fast funktioniert meine ich das, dass Programm an sich perfekt funktioniert aber die Falschen Werte markiert werden.

D.h. er markiert alle Zellen auf Tabellenblatt 1 und 2 farbig die übertragen wurden weil sie noch nicht vorhanden waren.

Was ich aber bräuchte wäre das er mir auf Tabellenblatt 2 die Werte markiert die abweichend sind. Im Klartext die Teilenummer ist die gleiche aber die Preise stimmen nicht. :)

Im Prinzip ist das genau der Teil den ich raus genommen habe und es dadurch Funktioniert hat, also vermute ich den Fehler in diesem Bereich.

Leider reicht mein VBA-Verständnis dafür schon wieder nicht mehr aus. :(

Für deine Hilfe bin ich dir wirklich Dankbar.

Liebe Grüße Steph :)