Hallo zusammen
Ich habe ein großes Excel spread sheet und möchte in einer Spalte werte vergleichen. In dem Moment wo ein Wert größer wird al der andere sollen verschiedene Zahlen der Zeile übertragen werden:
Ich habe das Problem versucht so zu lösen:
Dim o As Integer
For o = 2004 To 3 Step -1
If [Sheets("OverviewX").Cells(o, 11)] >= [Sheets("Calculus").Cells(49,3)] Then
Sheets("OverviewX").Cells(86, 4).Value = Sheets("Calculus").Cells(o, 6).Value
Sheets("OverviewX").Cells(86, 9).Value = Sheets("Calculus").Cells(60, 3).Value
Sheets("OverviewX").Cells(86, 12).Value = "0" - Sheets("Calculus").Cells(49, 3)
End If
Exit For
Next
Allerdings gibt er mir jetzt immer den 2004 Wert und fängt nicht an zu laufen.
Seht ihr den Fehler oder wisst ihr die Lösung?
Danke und VG
|