Hallo Zusammen,
brauche wirklich dringend eure Hilfe, habe soviele Lösungsansätze aber keiner funktioniert.
Folgendes Problem:
Ich habe eine Excel Datei, mit 2 Blättern. Die Blätter haben über 10000 Zeilen.
In Blatt1 sowie und Blatt2 stehen Artikelnummer.
In Blatt1 Spalte B die alten und Blatt2 Spalte B die neuen.
Er soll mir jetzt auf Blatt C die neu dazu gekommenen Artikelnummern auflisten.
Eigentlich einfach mit VBA machbar, funktioniert aber nicht.
Kurz:
-Checke Blatt1, SpalteB alten Datensatz
-Checke Blatt2, SpalteB neuen Datensatz
-Schreibe Blatt3, neu dazu gekommenen Datensatz
Verwendet wird Excel 2007.
Folgende VBA Formel wurde schon getestet:
"Option Explicit Sub Daten_vergleichen() Dim Suchname As String, Fundname As Range, letzte_Zeile_Tab1 As Long, _ letzte_Zeile_Tab2 As Long, Wiederholungen As Long, Addresse As String, _ gefundene_Zeile As Long, Wiederholungen1 As Long Application.ScreenUpdating = False letzte_Zeile_Tab1 = Sheets("Namensliste 1").Range("A65536").End(xlUp).Row letzte_Zeile_Tab2 = Sheets("Namensliste 2").Range("A65536").End(xlUp).Row For Wiederholungen = 2 To letzte_Zeile_Tab1 For Wiederholungen1 = 2 To letzte_Zeile_Tab2 If Sheets("Namensliste 1").Cells(Wiederholungen, 1) = _ Sheets("Namensliste 2").Cells(Wiederholungen1, 1) Then Sheets("Namensliste 1").Cells(Wiederholungen, 1).Interior.ColorIndex = 4 Sheets("Namensliste 2").Cells(Wiederholungen1, 1).Interior.ColorIndex = 4 Sheets("Namensliste 2").Cells(Wiederholungen1, 1).Copy Sheets("Auswertung").Cells(Sheets("Auswertung").Range("A65536").End(xlUp). _ Offset(1, 0).Row, 1).PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False End If Next Next End Sub"
Das sollte am besten natürlich mit VBA gelöst werden.
Ernsthaft, ich verzweifle, weil eigtl sollte die Formel stimmen.
Ich danke im voraus !
Beste Grüße
|