Script für Positionssuche über 2 Mappen verändern
21.06.2006 16:04:45
Nicole
ich brauche heute eure Hilfe.
und zwar folgendes Script durchsucht die Datei
Händler2 nach den Positionsnummern in Spalte A
und fügt mir diese in die Datei mein.xls ein.
Es erkennt dabei bereits vorkommende Positionen.
Leider werden die Positionen in der falschen Reihenfolge
übernommen und ich würde gerne erreichen, dass nicht speziell
die Datei Händler2.xls durchsucht wird sondern eine gerade noch
geöffnete Datei.
Denn meine Aufmaßbläter haben immer unterschiedliche Namen.
Kann mir da jemand helfen ?
Gruß Nicole
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 wksAlt = Workbooks("Händler2.xls").Sheets("Händler2")
Set wksNeu = Workbooks("mein.xls").Sheets("mein")
Set wksDel = Workbooks("mein.xls").Sheets("mein")
'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.Insert
End If
Set sFind = Nothing
Next
End Sub