Spaltenvergleich - HILFE!
24.07.2007 09:39:04
gromminger
Ich möchte die Werte in 2 Worksheets vergleichen.
Wenn die Schlüsselnummer in beiden Sheets vorhanden ist,
so überschreibt er die alten Werte durch die neuen. Dies klappt soweit.
Was allerdings noch nicht klappt ist, wenn im Sheet1 Einträge vorhanden sind,
die in Sheet2 noch nicht vorhanden sind und daher dort angelegt werden müssen.
Stattdessen wird jeder Eintrag exakt 14 Mal eingetragen (so viele Einträge sind in Sheet1).
Bitte um Eure Hilfe!
Mein erster Versuch:
Sub Compare()
Dim wsh1, wsh2 As Worksheet
Dim wbk As Workbook
Dim anz, anz2 As Long
Dim x, x2, x3, z, ze, zeile, zeile2 As Integer
Set wbk = ThisWorkbook
Set wsh1 = Worksheets("OOL")
Set wsh2 = Worksheets("Overview")
x = 2
x2 = 2
anz = wsh1.Cells(65536, 1).End(xlUp).Row
anz2 = wsh2.Cells(65536, 1).End(xlUp).Row
zeile_neu = 20
For z = 2 To anz
For ze = 2 To anz2
If wsh1.Cells(z, 1) = wsh2.Cells(ze, 1) Then
wsh2.Cells(ze, 2) = wsh1.Cells(z, 2)
wsh2.Cells(ze, 3) = wsh1.Cells(z, 4)
wsh2.Cells(ze, 4) = wsh1.Cells(z, 18)
End If
Else
wsh2.Cells(zeile_neu, 1) = wsh1.Cells(z, 1)
wsh2.Cells(zeile_neu, 2) = wsh1.Cells(z, 2)
wsh2.Cells(zeile_neu, 3) = wsh1.Cells(z, 3)
wsh2.Cells(zeile_neu, 4) = wsh1.Cells(z, 4)
zeile_neu = zeile_neu + 1
End If
Next ze
Next z
End Sub
Gruss,
Gromminger