Attribute VB_Name = "modPumpe"
Option Explicit


' @return = richtige Pumpe in Abhängigkeit des Durchflusses
'
Public Function Pumpenwahl(Q As Double, ColPumpen) As CPumpe
    Dim Pumpe As CPumpe
    For Each Pumpe In ColPumpen
        If Pumpe.IstOkFuerDurchfluss(Q) Then
            Set Pumpenwahl = Pumpe
        End If
    Next
    If Pumpenwahl Is Nothing Then
        MsgBox ("Es ist keine Pumpe für den Durchfluß = " & Q & " m^3 in der ini-datei definiert.")
    End If
End Function