Hallo Katrin!
Hast du da noch eine Spalte A mit laufender NUmmer oder so davor? Komme mit der Zählweise nicht klar - Daten die vom Anfang identisch sien könnte, stehen eher in B und H. Ansonsten finde ich da in den Spalten auch keine Übereinstimmung. In Tabelle 2 Spalte I steht bspw. so was "3426 3" und in Tabelle 1 sowas "3426-2012". Die sind doch nie identisch. Also wenn ich den Code richtig lese, dürfte da keine Zeile von Blatt 2 in Blatt 1 übertragen werden. Wieso soll bspw. die Zeile hier
Gestrichen |
4357-2015 |
|
2_Test-HP |
2_Test-NP |
|
|
--- |
4349 |
1 |
new |
übertragen werden. Du hast doch in Blatt 1 nur 2 Werte und denn nicht. Kannst du da unabhängig von deinem Code nochmal erklären, was passieren soll. Insb. auch wenn keine Übereinstimmung da ist. Weil die Daten sind im Beispiel auch übertragen, aber das sieht der Code nicht vor.
Was soll den genau bei 2 oder mehr Treffern erfolgen? Eine neue Zeile einfügen und dorthin die Zeile kopieren? Sollte das aber nicht auch bei einem Treffer passieren? Es kann sonst sein, dass du Daten überschreibst. Die Zeile
Worksheets( "Tabelle2" ).Rows(LoJ).Copy Destination:=Sheets( "Tabelle1" ).Rows(LoI + 2)
fügt ja zwei Zeilen vom aktuellen LoI die Zeile ein. Wenn jetzt aber noch nicht das Ende der Einträge da ist, überschreibst du doch die DAten dort.
Ansonsten ist dein zweites Exit for eine Zeile zu hoch. Sollte bestimmt hinter das end if - sonst kommt es zweimal hintereinander.
Viele Grüße
|