Hallo zusammen,
folgendes Problem: Ich möchte eine große Datenbank analysieren und will dafür stets
Zelle B(i, 2) mit Zelle B(i + 1, 2) vergleichen.
Wenn der Wert größer als 1% steigt (also > i * 1.01),
soll in eine benachbarte Zelle B(i, 4) das Wort "BUY" ausgespuckt werden. Ansonsten "NO BUY".
Was habe ich falsch gemacht? <b>Danke!</b>
Sub IfThenElse()
ActiveWorkbook.Sheets("AP1").Select
Dim i As Integer
For i = 2 To 2000
If Cells(i + 1, 2).Value > Cells(i, 2) * 1.01 Then
Cells(i, 4).Value = "BUY"
Cells(i, 4).Interior.ColorIndex = 4
Else
Cells(i, 4).Value = "NO BUY"
End If
Next
End Sub
|