Option Explicit
Public Sub Mathe()
Const Pi As Double = 3.141592
Const Rs As Double = 287.058
Const Pa As Long = 100000
Dim Tr As Double
Dim Ra As Integer
Dim Wg As Integer
Dim Rho As Double
Dim P As Double
End Sub
Function Dichte_der_Luft(Tr, Pa, Ra)
Tr = Range("F8").Value
Dichte_der_Luft = Pa / Ra * Tr
End Function
Function leistung_mit_par(Ra, Wg, Rho, Pi)
leistung_mit_par = 0.5 * Rho * Pi * (Wg ^ 3) * (Ra ^ 2)
End Function
Function leistung_ohne_par(Ra, Wg, Rho, Pi)
Debug.Print ActiveCell.Row, ActiveCell.Column
Ra = Range("B8").Value
Wg = Range("C8", "E8").Value
leistung_ohne_par = 0.5 * Rho * Pi * (Ra ^ 2) * (Wg ^ 3)
End Function