AW: Poste mal den Code ! o.T.
08.12.2003 12:58:13
Josef Ehrensberger
Hi,
auf die schnelle könntest Du den Code so ändern.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row + 1, 1).Select
Cells(Target.Row + 1, 6).FormulaR1C1 = "=IF(RC[-3]=""Sell"",((R1C5*R4C5*R1C7)-RC[-4]),"""")"
Cells(Target.Row + 1, 7).FormulaR1C1 = "=IF(RC[-4]=""Buy"",((R1C5*R4C5*R1C7)+RC[-5]),"""")"
Cells(Target.Row + 1, 8).FormulaR1C1 = "=IF(RC[-2]<0,""SELL"",""BUY"")"
Cells(Target.Row + 1, 9).FormulaR1C1 = "=IF(RC[-1]=""BUY"",(R1C5*R1C11*RC[-4])-RC[-7])"
Cells(Target.Row + 1, 10).FormulaR1C1 = "=IF(RC[-2]=""SELL"",(R1C5*R1C11*R4C5)+RC[-8],RC[-1])"
Cells(Target.Row + 1, 12).FormulaR1C1 = "=IF(RC[-9]=""Sell"",((R1C13*R1C5)+RC[-6]),IF(RC[-9]=""Buy"",((R1C5*R1C13)+RC[-5]),""?""))"
Cells(Target.Row + 1, 13).FormulaR1C1 = "=RC[-6]+(R1C5*R1C13)"
Cells(Target.Row + 1, 14).FormulaR1C1 = "=IF(RC[-11]=""SELL"",-(RC[-12]-R1C11),IF(RC[-11]=""BUY"",(RC[-12]+R1C11),""?""))"
ActiveSheet.Calculate
Cells(Target.Row + 1, 6) = Cells(Target.Row + 1, 6).Value
Cells(Target.Row + 1, 7) = Cells(Target.Row + 1, 7).Value
Cells(Target.Row + 1, 8) = Cells(Target.Row + 1, 8).Value
Cells(Target.Row + 1, 9) = Cells(Target.Row + 1, 9).Value
Cells(Target.Row + 1, 10) = Cells(Target.Row + 1, 10).Value
Cells(Target.Row + 1, 12) = Cells(Target.Row + 1, 12).Value
Cells(Target.Row + 1, 13) = Cells(Target.Row + 1, 13).Value
Cells(Target.Row + 1, 14) = Cells(Target.Row + 1, 14).Value
Application.EnableEvents = True
End Sub
Dabei werden zuerst die formeln eingetragen.
Ginge siche auch einfacher, ich wollte mich aber jetzt nicht
mit den Formeln befassen.
Grus Sepp