Vielen Dank, war aber bereits sehr hilfreich! Leider hat es noch nicht geklappt.
Da ich immer mit der Vorgängerzelle vergleichen möchte, habe ich noch ein .Offset(1, 0) an zweiteren Zellbezug gehängt.
Nach dieser Logik wird aber jetzt immer dieselbe Zellen mit sich selbst verglichen, oder?
Hilft es, wenn ich noch ein x definiere?
Sub LoopA()
ActiveWorkbook.Sheets("AP1").Select
Dim y As Long
Dim x As Long
For y = 2 To 6
For x = 3 To 6
If Cells(y, 2).Offset(1, 0).Value > (Cells(x, 2).Offset(1, 0).Value )* 1.01) Then
With Cells(x, 2).Offset(0, 2)
.Value = "BUY"
.Interior.Color = RGB(0, 255, 0)
End With
Else
Cells(x, 2).Offset(0, 2).Value = "NO BUY"
End If
Next
Next
End Sub
|