Zeilen vergleichen ob änderungen oder neu

=WENN(A6="";"";'Artikel Möbel'!A8&'Artikel Möbel'!G8&'Artikel _ Möbel'!B8&'Artikel Möbel'!C8&'Artikel Möbel'!D8&'Artikel Möbel'!E8&'Artikel _ Möbel'!F8&' _ Artikel Möbel'!H8&'Artikel Möbel'!I8&'Artikel Möbel'!J8&'Artikel _ Möbel'!K8&'Artikel Möbel'!L8&'Artikel Möbel'!M8&'Artikel Möbel'!Q8&'Artikel _ Möbel'!S8)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jürgen,
enschuldige bitte, bei meiner Lösung habe ich deine Excel-Version nicht beachtet. An dieser Stelle etwas Werbung: xl 2003 ist schon zwölf Jahre alt! Die modernen Versionen bieten viele neue komfortable Möglichkeiten, bedingte Formatierung über verschiedene Blätter ist nur eine davon. Vielleicht ist es Zeit aufzurüsten? Werbung Ende :-)
Für deine erste Aufgabe, die Änderungen zu übertragen, sollte dieses Makro herhalten:

Sub AenderungenInArtikelUeberschreiben()
Const SpalteAenderung As Long = 42          'in Spalte AP suchen
Const ZeileAenderungAb As Long = 6          'ab Zeile 6 prüfen - darüber sind Überschriften
Const WortAenderung As String = "änderung"  'nach diesem Wort prüfen
Const SpalteAb As Long = 1                  'ab Spalte A kopieren
Const SpalteBis As Long = 19                'bis Spalte S kopieren
Const SpalteIndex As Long = 1               'Interne Nummer in Spalte A
Const TabQuelle As String = "Datenabgleich Artikel"  'Blattname
Const TabZiel As String = "Artikel Möbel"            'Blattname
Dim r As Range
Dim ZeileBis As Long
Dim ZeileZiel As Long
Application.ScreenUpdating = False
With Sheets(TabQuelle)
ZeileBis = .Cells(.Rows.Count, SpalteAenderung).End(xlUp).Row
If Not ZeileBis

Läuft das durch, wird jede Zeile mit "Änderung" in das "Artikel Möbel" Blatt an die richtige Zeile kopiert. Danach hast du theoretisch keine Änderungen mehr im Datenabgleich.
In der Mustertabelle ist das anders, da kommt die Nummer 01-00002 doppelt vor (Zeile 7 und Zeile 11). Das Makro kopiert erst Zeile 7, danach Zeile 11 - beide in die Ziel-Zeile 9, wo die Nummer hin gehört. Danach ist natürlich eins von beiden wieder mit dem "Änderung" Label versehen ... aber ich nehme an, das ist ein Fehler in deiner Mustertabelle.
Deine nächste Aufgabe verstehe ich nicht:
Spalte AR bei Artikel 01-00130 neu steht dann soll er die letzte leere Zeile suchen und einfügen
01-00130 gehlärt doch in Artikel Möbel in Zeile 38, oder? DIe letzte leere Zeile ist aber Zeile 443. Willst du wirklich die Nummer 01-00130 in 'Artikel Möbel'!A443 eingefügt haben, so dass es dort eine doppelte Indexnummer gibt und die Reihenfolge nicht mehr stimmt, oder hast du dich nur unklar ausgedrückt?
Grüße,
Klaus M.vdT.

Hallo Klaus
Hab dein Makro gerade ausprobiert funktioniert super, und das beste ich versteh es bis zu 70% :-) wieder was gelernt.
Eigentlich ist in der Mustertabelle kein Fehler drin das ist gewollt das dort die zahlen doppelt vorkommen :-)
Kurze Erklärung:
Ich hab eine Vorlagendatei inkl. Material und Bestelltabelle.
Artikel kopieren aus Material in Bestelltabelle abspeichern.
Neuer Kunde selbes Spiel, es kommen Pro Kunde immer wieder mal neue Beschläge dazu (vorlaufende Artikel ergänzung).
Damit ich aber nicht immer händisch dann alles rüberkopieren muss in meine Vorlagendatei wollte ich diesen abgleich machen.
Artikel in die Vorlagendatei kopieren abgleichen und speichern.
jetzt kann es aber vorkommen das ich in der Zwischenzeit bei Kunde 1 (150 Artikel) habe und bei Kunde 2 (135 Stk.) diese sind dann ja schon in der Vorlagendatei hinterlegt. Wenn ich nun während dem Projekt bei Kunde 2, neue Artikel ergänze und dann den abgleich mache dann überspielt es mir ja bestehenden Artikel Nummern obwohl das eine ganz anderer Artikel ist.
Du wirst jetzt sicher Sagen Warum machst du nicht eine Separate Datei nur mit Materialien und Greifst beim Kopieren immer auf diese zu, dann ersparst du dir den abgleich.
Das wollte ich als erstes machen allerdings habe ich das nicht verstanden.
Eine Datei zu prüfen ob offen, dann material auswählen und in die andere Mappe zu kopieren.
Lediglich was ich geschaft habe Tabelle öffnen Artikel markieren dann per Makro kopieren mit abfrage in der anderen Tabelle wo hinkopieren, dann Abfrage ob noch ein Artikel wenn JA das selbe spiel.
Eigentlich dachte ich das der abgleich einfacher ist aber langsam sehe ich das dies doch nicht der Fall ist.
Das mit den Artikel wo neu gekennzeichnet sind, dachte ich eigentlich das er die letzte Zeile in Spalte G (Artikel) sucht und dort ohne Nr. Speichert. somit würde es auch keine doppelte Index Nummer geben. Allerdings würde das neu immer stehen bleiben da es keine passende nummer in dem Moment gibt. Das Makro würde also immer den gleichen Artikel kopieren bis die Nummer erreicht wurde. (so verstehe ich das jetzt).
Ich hoffe ich konnte das verständlich erklären und du hast eine Idee oder Lösung.
Falls du sagst das mit der separaten Datei ist viel leichter, dann zeige ich dir gerne den fertigen Code in einer Mustertabelle.
mfg
Jürgen

Sub AenderungenInArtikelUeberschreibenUndNeuUntenDran() Const SpalteAenderung As Long = 42 'in Spalte AP suchen Const ZeileAenderungAb As Long = 6 'ab Zeile 6 prüfen - darüber sind Überschriften Const WortAenderung As String = "änderung" 'nach diesem Wort bei Änderung prüfen Const WortNeu As String = "neu" 'nach diesem Wort bei NEU prüfen Const SpalteAb As Long = 1 'ab Spalte A kopieren Const SpalteAbNeu As Long = 2 'bei NEU: Ab Spalte B kopieren (Nummer in A _ erhalten) Const SpalteBis As Long = 19 'bis Spalte S kopieren Const SpalteIndex As Long = 1 'Interne Nummer in Spalte A Const SpalteNameZiel As Long = 7 'Spalte G ist immer bis zum Ende gefüllt Const TabQuelle As String = "Datenabgleich Artikel" 'Blattname Const TabZiel As String = "Artikel Möbel" 'Blattname Dim r As Range Dim ZeileBis As Long Dim ZeileZiel As Long Application.ScreenUpdating = False With Sheets(TabQuelle) ZeileBis = .Cells(.Rows.Count, SpalteAenderung).End(xlUp).Row If Not ZeileBis

Beliebteste Forumthreads (12 Monate)

Zeilen vergleichen ob änderungen oder neu

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen vergleichen ob änderungen oder neu

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread