Option Explicit
Public Sub ExtremBasejumper()
Dim Tges As Double
Dim m As Double
Dim sw As Double
Dim I As Integer
Dim erg As Integer
Dim ve As Double
Do
Tges = InputBox("Hier bitte Gesamtfallzeit in Sekunden eingeben")
Loop While Tges <= 0 Or Tges > 100
m = InputBox("Hier bitte Masse des Jumpers in Kilogramm eingeben")
Do
sw = InputBox("Hier bitte die Fallgeschwindigkeit in Meter pro Sekunde eingeben")
If sw = 0 Then
sw = -1
End If
Loop While sw <= 0 Or 100 < Tges / sw
erg = Tges / sw + 1
ve = (2 * m * 9.81 / (0.5 * 1.2 * 0.5)) ^ (1 / 2)
Cells.Clear
Cells(1, 1) = "Fallzeit[s]"
Cells(1, 2) = "Fallgeschwindigkeit[m/s]"
Cells(1, 3) = "Fallstrecke[m]"
For I = 1 To erg
Cells(I + 1, 1) = (I - 1) * sw
Cells(I + 1, 2) = ve * Application.WorksheetFunction.Tanh((I - 1) * sw * g / ve)
Next I
End Sub