Hallo zusammen,
ich verzweifel gerade ein einem Programm um mir eine Berechnung zu erleichter. Ich will eine Fallunterscheidung mit Elseif machen, allerdings werden meine Bedingungen ignoriert. Ich habe wahrscheinlich einen Fehler in der Syntax, kann ihn aber nicht ausmachen. Im Grund soll das Programm schauen, ob die 2 Werte in einem definiertem Bereich liegen, um dann Formel x,y,z zu verwenden.
Liebe Grüße,
Mike
Sub SimL3()
'
'
Dim i As Integer
For i = 1 To 2295
Me = ActiveCell.Offset(0, -4).Value
mD = ActiveCell.Offset(0, -3).Value
If mD < 15 Then
ActiveCell.Value = 0
ElseIf 32.04 < mD < 42.48 And 0 < mE < 9.9 Then
ActiveCell.FormulaR1C1 = "= 0,2365*RC[-3] - 5,639"
ElseIf 42.48 < mD < 52.92 And 10 < mE< 19.9 Then
ActiveCell.FormulaR1C1 = "= 0,2308*RC[-3] - 6,5215"
Else
ActiveCell.FormulaR1C1 = "=-0,0011*RC[-3]^2 + 0,3007*RC[-3] - 2,7811"
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Next
End Sub
|