Tabellen abgleichen....

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub vergleichen_und_entfernen() 'Beide Dateien müssen geöffnet sein! 'Die Artikelnummern stehen jeweils in Spalte "A" ab Zeile 2 Dim wksAlt As Worksheet Dim wksNeu As Worksheet Dim lngE As Long Dim lngR As Long Dim sFind As Range Set wksNeu = Workbooks("DateiVomHändler.xls").Sheets("Tabellenname") Set wksAlt = Workbooks("DeineDatei.xls").Sheets("Tabellenname") 'Dateinamen und Tabellennamen anpassen lngE = wksAlt.Range("A65536").End(xlUp).Row For lngR = lngE To 2 Step -1 Set sFind = wksNeu.Range("A2:A65536").Find(what:=wksAlt.Cells(lngR, 1), _ LookIn:=xlValues, lookat:=xlWhole) If sFind Is Nothing Then wksAlt.Cells(lngR, 1).EntireRow.Delete Set sFind = Nothing Next End Sub

Sub vergleichen_und_entfernen() 'Beide Dateien müssen geöffnet sein! 'Die Artikelnummern stehen jeweils in Spalte "A" ab Zeile 2 Dim wksAlt As Worksheet Dim wksNeu As Worksheet Dim wksDel as Worksheet Dim lngE As Long Dim lngR As Long Dim lngC as Long Dim sFind As Range Set wksNeu = Workbooks("DateiVomHändler.xls").Sheets("Tabellenname") Set wksAlt = Workbooks("DeineDatei.xls").Sheets("Tabellenname") Set wksDel = Workbooks("DeineDatei.xls").Sheets("Gelöscht") 'Dateinamen und Tabellennamen anpassen lngE = wksAlt.Range("A65536").End(xlUp).Row lngC = wksDel.Range("A65536").End(xlUp).Row + 1 For lngR = lngE To 2 Step -1 Set sFind = wksNeu.Range("A2:A65536").Find(what:=wksAlt.Cells(lngR, 1), _ LookIn:=xlValues, lookat:=xlWhole) If sFind Is Nothing Then wksAlt.Cells(lngR, 1).EntireRow.Copy Destination:= wksDel.Cells(lngC, 1) lngC = lngC + 1 wksAlt.Cells(lngR, 1).EntireRow.Delete End If Set sFind = Nothing Next End Sub

Sub vergleichen_und_markieren() 'Beide Dateien müssen geöffnet sein! 'Die Artikelnummern stehen jeweils in Spalte "A" ab Zeile 2 Dim wksAlt As Worksheet Dim wksNeu As Worksheet Dim lngE As Long Dim lngR As Long Dim sFind As Range Set wksNeu = Workbooks("DateiVomHändler.xls").Sheets("Tabellenname") Set wksAlt = Workbooks("DeineDatei.xls").Sheets("Tabellenname") 'Dateinamen und Tabellennamen anpassen lngE = wksAlt.Range("A65536").End(xlUp).Row For lngR = 2 To lngE Set sFind = wksNeu.Range("A2:A65536").Find(what:=wksAlt.Cells(lngR, 1), _ LookIn:=xlValues, lookat:=xlWhole) If sFind Is Nothing Then wksAlt.Cells(lngR, 10) = 9999 End If Set sFind = Nothing Next End Sub

Hi sepp ich bins nochmal also das script geht irgendwie nicht.
Folgendes die product-quantitiy in tabelle3(neuedaten) die auf 9999 gesetzt werden sind falsche Artikel dies sind artikel die vorhanden sind.
in der Tabelle gelöscht sind die artikel richtig verwunderlicherweise.
die anzahl ist ungefähr gleich in beiden tabellen also die 9999 und die gelöschten....
diesen code benutzte ich


Sub daten_abgleichen()
'Beide Dateien müssen geöffnet sein!
'Die Artikelnummern stehen jeweils in Spalte "A" ab Zeile 2
Dim wksAlt As Worksheet
Dim wksNeu As Worksheet
Dim wksDel As Worksheet
Dim lngE As Long
Dim lngR As Long
Dim lngC As Long
Dim sFind As Range
Set wksNeu = Workbooks("PERSONL.xls").Sheets("Tabelle3")
Set wksAlt = Workbooks("PERSONL.xls").Sheets("Tabelle4")
Set wksDel = Workbooks("PERSONL.xls").Sheets("Gelöscht")
'Dateinamen und Tabellennamen anpassen
lngE = wksAlt.Range("A65536").End(xlUp).Row
lngC = wksDel.Range("A65536").End(xlUp).Row + 1
For lngR = 2 To lngE
Set sFind = wksNeu.Range("A2:A65536").Find(what:=wksAlt.Cells(lngR, 1), _
LookIn:=xlValues, lookat:=xlWhole)
If sFind Is Nothing Then
wksAlt.Cells(lngR, 1).EntireRow.Copy Destination:=wksDel.Cells(lngC, 1)
lngC = lngC + 1
wksNeu.Cells(lngR, 27) = 9999
End If
Set sFind = Nothing
Next
End Sub

hier ist der link zu den dateien nach ausführung des codes...
hoffe du weißt da was
gruss erdal

Hi sepp ich nochmal also der script geht irgendwie nicht die daten die er umschreibt in 9999 sind erstens falsch weil es die artikel noch gibt und 2. sind die daten die in der tabelle gelöscht stehen ganz andere was man aber zu der tabelle gelöscht dazu sagen muss ist das die art. nummern richtig sind also die gibt es echt nicht mehr...
hier ist mal der link zu den 3.tabellen http://www.sit-int.com/erdal_sepp.xls
die Menge von den zeilen also die mit 9999 in tabelle 3 und die menge zeilen in der tabelle gelöscht sind ungefähr gleich ich versteh nicht was da vorsich geht wäre echt nett wenn du mal kurz schaust also die tabellen sende ich mit
also kurzfassung--- Tabelle3(neuedatei) products_quantity=9999 sind falsche Artikel
------------------- Tabelle Gelöscht (gelöschte) die artikel sind richtig aber nicht die selben die in tabelle3 umbeschrieben worden.
hoffe ich hab mich richtig ausgedrückt

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread