Listen vergleichen
25.09.2019 12:00:06
Hauke
ich habe die Aufgabe, 2 Dateien miteinander zu vergleichen und upzudaten.
Beide haben unterschiedliche Formate, die ich aber bereits mit VBA umgewandelt bekomme, so dass sie identisch aussehen.
Nun stehen in der Spalte E jeweils eindeutige Nummern. Es soll überprüft werden, ob die Nummer aus Datei 1 auch in der Spalte E der Datei 2 enthalten ist.
- Falls ja, dann soll die Spalte D (Datei 1) in die Spalte D (Datei 2) kopiert werden.
- Falls nein, soll die komplette Spalte der Datei 1 in die erste leere Zeile unten in der Datei 2 kopiert werden.
Folgendes habe ich bereits gebaut:
Application.ScreenUpdating = False
On Error Resume Next
On Error GoTo 0
Set wkb = Workbooks.Open(Filename:=my_FileName)
Set wkb1 = ThisWorkbook
wkb1.Activate
Set wks = wkb.Worksheets(1)
Set wks1 = wkb1.Worksheets(1)
anz = wks.Cells(65536, 5).End(xlUp).Row
anz1 = wks1.Cells(65536, 5).End(xlUp).Row
For Z = 2 To anz1
suchwert = wks1.Cells(Z, 5)
With wks.Range("e2:a" & anz)
Set c = .Find(suchwert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
For s = 4 To 5
wks.Cells(c.Row, s) = wks1.Cells(Z, s)
Next
Else
For s = 1 To 9
wks.Cells(anz + 1, s) = wks1.Cells(Z, s)
Next
anz = wks.Cells(65536, 1).End(xlUp).Row
End If
End With
Next
Application.ScreenUpdating = True
Es wird immer nur eine neue Spalte eingefügt, wenn eine unbekannte Nummer in Spalte E auftaucht. Weitere Nummern werden nicht gezogen bzw eingefügt. ?!
Die Werte in Spalte 4 werden garnicht erfasst.
Kann mir evtl jemand helfen und hat eine Lösung für mein Problem?
Vielen Dank schonmal vorab!
LG,
Hauke