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 :)
|