Tabellenblaetter vergleichen mit VBA

Matto · 2018-07-05T21:34:50+00:00

Liebe Experten, Ich baue seit einigen Tagen an einem Excel Dokument. Nun habe ich ein Problem, bei dem ich einfach nicht weiterkomme. Die im Netz gefundenen Lösungen kann ich leider nicht ganz nachvollziehen und somit auch nicht adaptieren. Vorinfo: ich erstelle aus einem Blatt mit Rohdaten per VBA eine Arbeitsliste. Falls nach dem Erstellen der Arbeitsliste noch neue Rohdaten hinzu kommen, möchte ich diese gerne in die Arbeitsliste einpflegen, ohne die bisherigen Einträge zu verändern. Idee: Nun war mein Gedanke, dass ich einfach eine neue TemporäreArbeitsliste auf Basis der Rohdaten erstelle und anschließend beide Arbeitslisten vergleiche. Gibt es neue Einträge sollen die Inhalte der jeweiligen Zeilen aus der TempArbeitsliste in die Arbeitsliste kopiert werden. Sorry für die verwirrende Erklärung. https://www.herber.de/bbs/user/122501.xlsx Hier findet Ihr eine Beispieldatei, die das Prinzip erahnen lässt. Ich brauch jetzt erstmal ein Bier. Gruß Mat

@ Bernd:
Meiner Meinung nach kann hier Application.Match nicht sinnvoll angewendet werden, denn es wird ja Zelle A mit Zelle 1, Zelle B mit Zelle 2, Zelle C mit Zelle 3 usw. verglichen und nicht Zelle A mit den Zellen 1, 2, 3.
Oder habe ich da was nicht verstanden?
@ Matto:
Hatte einen kleinen Fehler in
wsN.Cells(lNZeile, lSpalte).Resize(1, lNSpalteMax).Copy
Den habe ich ausgebessert. Der Code sieht nun so aus:

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

Am Schluss wird nach Spalte A und C sortiert.
Noch ein Tipp, wenn man händisch schnell nach mehreren Kriterien sortieren will:
Stelle Dich in eine Zelle der Sortierspalte C. Nicht mehrere Zellen markieren, sonst wird nur in diesem Bereich sortiert!
Menü Start, ganz rechts "Sortieren und Filtern", "Nach Größe sortieren".
Dann gehe in eine Zelle in Spalte A, dann "Nach Größe sortieren".
Der Trick ist, dass Du in umgekehrter Spaltenreihenfolge, also erst C, dann A, sortierst.
Das geht schneller als "Benutzerdefiniertes Sortieren", wo man mühevoll die Sortierspalten eingibt.
OK?
LGB

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

Tabellenblaetter vergleichen mit VBA

Forumthread: Tabellenblaetter vergleichen mit VBA

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Tabellenblaetter vergleichen mit VBA

Forumthread: Tabellenblaetter vergleichen mit VBA

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread