Thema

Berechnung der Druckverluste in Rohrnezten

Gruppe

Zielwertsuche

Problem

Berechnung der Druckverluste in Rohrnetzen (Luft, Heizung) nach einer Gleichung von Coolbrook-White.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.



ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.Calculation = Worksheets("Data").Range("A1").Value
End Sub

Private Sub Workbook_Open()
   Worksheets("Data").Range("A1").Value = Application.Calculation
   Application.Calculation = xlCalculationManual
End Sub
StandardModule: Modul1

Sub AusEinblenden()
   Worksheets("Data").Visible = xlVeryHidden
   Worksheets("Data").Visible = True
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Feature und Zielwertsuche