Tabellenblaetter vergleichen mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Matto0705() Dim wsA As Worksheet Dim wsN As Worksheet Dim lAZeile As Long Dim lAZeileMax As Long Dim lNZeile As Long Dim lNZeileMax As Long Dim lNSpalteMax As Long Dim lSpalte As Long Set wsA = Worksheets("ListeAlt") Set wsN = Worksheets("ListeNeu") lAZeileMax = wsA.Range("A1").CurrentRegion.Rows.Count lNZeileMax = wsN.Range("A1").CurrentRegion.Rows.Count lNSpalteMax = wsN.Range("A1").CurrentRegion.Columns.Count For lNZeile = 2 To lNZeileMax For lAZeile = 2 To lAZeileMax For lSpalte = 1 To lNSpalteMax If wsN.Cells(lNZeile, lSpalte) wsA.Cells(lAZeile, lSpalte) Then Exit For Next lSpalte If lSpalte > lNSpalteMax Then Exit For Next lAZeile If lAZeile > lAZeileMax Then wsN.Cells(lNZeile, lSpalte).Resize(1, lNSpalteMax).Copy _ wsA.Cells(lAZeileMax + 1, 1) lAZeileMax = lAZeileMax + 1 End If Next lNZeile End Sub

Der Ablauf ist so:
Eine Zeile von Neu wird mit jeder Zeile von Alt verglichen, solange bis Gleichheit gefunden wird.
Gleichheit zweier Zeilen liegt vor, wenn beim Vergleich der einzelnen Zellen dieser Zeilen

For lSpalte = 1 To lNSpalteMax

keine Ungleichheit entdeckt wird.
Falls doch, wird der Vergleich der einzelnen Zellen abgebrochen (


If wsN.Cells ... Then Exit For

) und die nächste Alt-Zeile kommt dran (Next lAZeile).
Falls nicht, wird abgebrochen (


If lSpalte > lNSpalteMax Then Exit For

).
Danach wird untersucht, ob gleiche Zeilen gefunden oder alle Alt-Zeilen erfolglos durchsucht wurden.
Falls Zweiteres (


If lAZeile > lAZeileMax Then

), wird die neue Zeile in den Altbestand kopiert.
Dann kommt die nächste Neu-Zeile dran (Next lNZeile)
Viel Erfolg beim rumexperimentieren.
LGB

Sub Matto0706() Dim wsA As Worksheet Dim wsN As Worksheet Dim lAZeile As Long Dim lAZeileMax As Long Dim lNZeile As Long Dim lNZeileMax As Long Dim lNSpalteMax As Long Dim lSpalte As Long Set wsA = Worksheets("ListeAlt") Set wsN = Worksheets("ListeNeu") lAZeileMax = wsA.Range("A1").CurrentRegion.Rows.Count lNZeileMax = wsN.Range("A1").CurrentRegion.Rows.Count lNSpalteMax = wsN.Range("A1").CurrentRegion.Columns.Count For lNZeile = 2 To lNZeileMax For lAZeile = 2 To lAZeileMax For lSpalte = 1 To lNSpalteMax If wsN.Cells(lNZeile, lSpalte) wsA.Cells(lAZeile, lSpalte) Then Exit For Next lSpalte If lSpalte > lNSpalteMax Then Exit For Next lAZeile If lAZeile > lAZeileMax Then wsN.Cells(lNZeile, 1).Resize(1, lNSpalteMax).Copy _ wsA.Cells(lAZeileMax + 1, 1) lAZeileMax = lAZeileMax + 1 End If Next lNZeile With wsA.Range("A1").CurrentRegion .Sort Header:=xlYes, _ key1:=.Range("A1"), order1:=xlAscending, _ key2:=.Range("C1"), order2:=xlAscending End With End Sub

Hi Mat,
"Wozu dient das "Resize" genau?"
Ich will den Bereich, der die Zeile Nummer lNZeile, von der ersten bis zur letzten Zelle umfasst, erstellen.
Experimentiere selbst:
Setze an der Stelle mit Resize eine Stopp-Marke und starte das Makro. Es hält dann ebenda an.
Öffne im Codefenster das Direktfenster (mit Strg+G) oder im Menü Ansicht.
Wenn Du zB wissen willst, was in diesem Moment lNZeile ist, mach im Direktfenster ?lNZeile und Enter. Wichtig ist das Fragezeichen zu Beginn. Die zahl für lNZeile wird darunter angezeigt.
Oder wenn Du einen Range sehen willst, mach zB wsN.Cells(lNZeile, 1).Resize(1, lNSpalteMax).select und Enter.
Wichtig ist hier, dass zu Beginn KEIN Fragezeichen steht, aber am Schluss .select. Jetzt ist der Range markiert. Oder es kommt eine Fehlermeldung, wenn das zugehörige Sheet NICHT aktiviert ist.
Das Direktfenster ist recht praktisch und für mich ein wertvolles Instrument.
Zur Beantwortung Deiner Frage, ob man wsN.Range("A" & lNZeile ":" lNspalteMax & "1").Copy schreiben kann. Nein, kann man nicht. Oder funktioniert es bei Dir? Untersuche erst mal im Direktfenster wsN.Range("A" & lNZeile ":" lNspalteMax & "1").select
Das geht nicht. Warum?
Jetzt untersuche den Inhalt der Klammer: ?"A" & lNZeile ":" lNspalteMax & "1" (wieder mit einem Fragezeichenzu Beginn und Du siehst, dass da für Range kein geeigneter Ausdruck rauskommt.
Die Spalte liegt als Zahl vor, nicht als Buchstabe. Also muss man was anderes finden:
Die erste Zelle der gewünschten Zeile ist wsN.Cells(lNZeile, 1). Diese erweitere ich nun hinunter nicht (es bleibt also bei einer Zeile), und nach rechts auf lNSpalteMax Zellen. Diese Erweiterung des Ranges erfolgt also mit .Resize(1, lNSpalteMax)
Woher ich das weiß? Weil ich mal im Code-Editor den Cursor mitten in "Resize" gestellt und dann F1 gedrückt habe. Du kannst auch nach "Excel vba resize" gugln. Wenn Du deutsche Suchergebnisse bevorzugst, schreib zB "funktioniert nicht" dazu.
Damit ist der gewünschte Range erstellt, der dann zu kopieren ist.
"Ich habe beim ansprechen von Zellen meist Range verwendet."
Ich glaube, das sind grammatikalische Nuancen, die andere besser beantworten können. Ich habe jedenfalls herausgefunden, dass beides geht.
Und ich habe was noch schnelleres herausgefunden: Statt Set wsA = Worksheets("ListeAlt") kann man Set rAlt = Worksheets("ListeAlt").Cells schreiben. Man muss allerdings zu Beginn rAlt als Range (und nicht als Worksheet) deklarieren.
Die Zelle E2 ist dann einfach rAlt(2,5) statt wsA.cells(2,5)
Zu Deinem nicht so wichtigen Zusatzwunsch:
Wenn ich das richtig verstehe, ist dann das Ergebnis, dass in ListeAlt dasselbe steht wie in ListeNeu.
Wenn das so ist, dann kannst Du Dir das Ganze sparen und gleich die ListeNeu rüber kopieren.
Viel Spass beim Experimentieren.
LGB

Beliebteste Forumthreads (12 Monate)

Tabellenblaetter vergleichen mit VBA

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblaetter vergleichen mit VBA

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread