Das ist was ich mir bis jetzt an Code erarbeitet habe.
Option Explicit
Sub Mathe()
Const Pi = 3.141592
Const Rs = 287.058
Const P = 100000
Dim Rho As Double
End Sub
Function Dichte_der_Luft(Rho)
Dim T As Doube
Dim Rho As Double
T = Cells(ActiveCell.Row, ActiveCell.Column - 1)
Rho = (R * T / P)
Dichte_der Luft = Rho
End Function
Function leistung_mit_par(R, W, D)
leistung_mit_par = CLng((1 / 2) * (Rho) * (Pi) * (W ^ 3) * (R ^ 2))
End Function
Function leistung_ohne_par()
Debug.Print ActiveCell.Row, ActiveCell.Column
R = Cells(ActiveCell.Row, ActiveCell.Column - 4)
W = Cells(ActiveCell.Row, ActiveCell.Column - 3)
leistung_ohne_par = CLng((1 / 2) * (Dichte) * (3.1459) * (Radius ^ 2) * (Windgeschwindigkeit ^ 3))
End Function