Function Colebrook(ByVal ReynoldsZahl As Double, Rohrdurchmesser As Double) As Double
Const kStahl As Double = 0.0001
Dim Rohrreibungszahl As Double
Dim LogX As Double
Rohrreibungszahl = 0.01
For i = 1 To 5
Rohrreibungszahl = ((Log(2.51 / ReynoldsZahl * Sqr(Rohrreibungszahl) + 0.27 * kStahl / Rohrdurchmesser) / Log(10)) * -2)
Rohrreibungszahl = Rohrreibungszahl * Rohrreibungszahl
Rohrreibungszahl = 1 / Rohrreibungszahl
Cells(1 + i, 10) = Rohrreibungszahl
Next i
Colebrook = Rohrreibungszahl
End Function
Berechnung mit folgenden Werten:
start Rohrreibungszahl = 0.01
ReynoldsZahl = 33000
Rohrdurchmesser = 0.03
Ergebnis der fünf Durchläufe oder direkt in Excel ohne VBA: