folgende Ausgangslage liegt vor:
Ich habe zwei Blätter mit ähnlichen Einträgen. Nun möchte ich überprüfen, ob sich entweder Spalte A oder Spalte E geändert hat. Die erste Mappe ist die neue Mappe mit den veränderten Werten:
Sub Vergleich()
Set nwkb = ThisWorkbook.Worksheets(1)
Set awkb = ThisWorkbook.Worksheets(2)
For x = 1200 To 2 Step -1
For y = 1200 To 2 Step -1
If nwkb.Range("A" & x) = awkb.Range("A" & y) And nwkb.Range("C" & x) = awkb.Range("C" & y) _
And nwkb.Range("E" & x) = awkb.Range("E" & y) Then
nwkb.Range("H" & x).Value = "No changes"
ElseIf nwkb.Range("E" & x).Value _
awkb.Range("E" & y).Value And IsNumeric(awkb.Range("E" & y).Value) And IsNumeric(nwkb.Range("E" & x).Value) And awkb.Range("E" & y).Value > 0 Then
nwkb.Range("H" & x).Value = "neuer Preis"
End If
Next
Next
End Sub
Jetzt möchte ich aber noch eine Unterscheidung, ob sich der Preis (Spalte E) geändert hat oder die Nummer (Spalte A). Das kriege ich aber im Moment nicht hin, habt ihr eine Idee?