1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
|
sub Calc()
a=cells(1,2)
b=cells(2,2)
c=cells(3,2)
s=0
for i=a to b step c
hoehe=f(i)
if hoehe<0 then hoehe = -1*hoehe
breite=c
s=s+breite*hoehe
next i
cells(5,2)=s
end sub
function f(x as double)
f=sin(x)
' Hier ist das Problem.
' Nämlich die Funktion von einer Zellen auslesen und das x da einsetzen.
' Du musst sie halt im Quellcode hier angeben (f=...)
end function
|