I like a challenge, so I'll give it a go:

TestVar1 = (Range("D6").Value/100)
TestVar2 = (Range("D6").Value/250)
TestVar3 = (Range("D6").Value/500)

If TestVar1 1,5 Then
If TestVar1 < 25 Then
Range("B16").Value = 100
Else
If TestVar2 1,5 Then
If TestVar2 < 25 Then
Range("B16").Value = 250
Else
If TestVar3 1,5 Then
Range("B16").Value = 500
End If
End If
End If
End If
Range("B30") = (Range("B16") * 60 / _
((Range("B2") * Range("F2")) / (1 * Range("F2"))))
Else
Range("B30").Value = "can't use"
End If

YIKES! Hope I got it...

-----Original Message-----
Hi, please help me with this

1) check if D6/100 1,5

2) if 1 true: check if D6/100 < 25

3) if 2 false: check D6/2501,5

4) if 3 true: check D6/250<25

5) if 4 false check D6/500 1,5

6) if 1 false: then B30= "can't use"

7) if 2 true: B16 = 100

8) B30 =(B16*60/((B2*F2)/(1*F2)))

9) If 4 true: B16 = 250

10) B30 =(B16*60/((B2*F2)/(1*F2))

11) If 5 true: B16=500

12) B30 =(B16*60/((B2*F2)/(1*F2))



Any help we´ll be appreciated

/Peter
.