Macro-Problem
30.09.2004 11:36:07
Ivan
ich habe ein Macro geschrieben welches vieles macht was ich will und einiges was ich nicht will,brauch aber dringend hilfe um das problem zu fixieren.
Das Makro vergleicht zwei Spalten miteinander und gibt jeweils das ergebnis in einer dritten spalte an.Das Macro sieht so aus:
Sub MACRO1()
Range("K2").Select
Do Until ActiveCell.Value = ""
C_P = ActiveCell.Value
ActiveCell.Offset(0, -2).Select
STRIKE = ActiveCell.Value
ActiveCell.Offset(0, 13).Select
LAST = ActiveCell.Value
If C_P = "C" And STRIKE > LAST + 0.01 Then
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = "OTM"
ElseIf C_P = "C" And STRIKE < LAST - 0.01 Then
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = "ITM"
Else
If C_P = "P" And STRIKE > LAST + 0.01 Then
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = "ITM"
ElseIf C_P = "P" And STRIKE < LAST - 0.01 Then
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = "OTM"
Else
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = "ATM"
End If
End If
ActiveCell.Offset(1, -13).Select
Loop
End Sub
Wie man sihet habe ich mich mit optionen versucht.Dabei ist ein option at -the-money ATM auch dann wenn der Preis um 1 Cent vom Strike verschieden ist egal in welche richtung.
Das Problem:
Wenn ich das Macro mit 100 Daten laufen lass, so funtioniert alles wunderbar,
tue ich es aber dann mit 50 so bleiben die Wert in der "Ergebnisszell" stehen, also das ATM,ITM oder OTM.Das ist aber unguenstig, weil drauf basieren viele andere Formeln aufbauen.Kann mir jemand helfen dies zu aender?
Waer echt super...
Gruss
Ivan