Beste helper,
Ik heb een formulier waarop de label lblAdvies gevuld moet worden met de tekst van kwAdvies uit de if then else instructie. Helaas krijg ik de melding Else zonder IF.
Wat doe ik fout. Hierbij de code
m.vr.gr.Martin
Ik heb een formulier waarop de label lblAdvies gevuld moet worden met de tekst van kwAdvies uit de if then else instructie. Helaas krijg ik de melding Else zonder IF.
Wat doe ik fout. Hierbij de code
Code:
Private Sub KWflowcombobox_Change()
Dim kwflow As Double
Dim kwAdvies1 As Double
Dim kwAdvies2 As Double
Dim kwAdvies As String
If txtKWVolumestroom <> vbNullString Then
KWflowcombobox.Visible = True
With Sheets("Drukverlies Koelwater Systeem")
Select Case KWflowcombobox.Text
Case "m3/hr"
kwflow = txtKWVolumestroom.Value / 3600
'Sheets("Drukverlies Koelwater Systeem").Range("c12") = KWflowcombobox.Text
Case "m3/min"
kwflow = txtKWVolumestroom.Value / 60
'Sheets("Drukverlies Koelwater Systeem").Range("c12") = KWflowcombobox.Text
Case "m3/s"
kwflow = txtKWVolumestroom.Value
'Sheets("Drukverlies Koelwater Systeem").Range("c12") = KWflowcombobox.Text
Case "ltr/hr"
kwflow = txtKWVolumestroom.Value / 3600000
Case "ltr/min"
kwflow = txtKWVolumestroom.Value / 60000
Case "ltr/s"
kwflow = txtKWVolumestroom.Value / 1000
End Select
End With
Else
End If
Worksheets("Drukverlies Koelwater Systeem").Range("c12") = CDbl(kwflow)
kwAdvies1 = kwflow * 4 / (1.7 * WorksheetFunction.Pi)
kwAdvies2 = kwAdvies1 ^ 0.5 * 1000
If kwAdvies2 < 54.5 Then kwAdvies = "DN50"
ElseIf kwAdvies2 < 70.3 Then kwAdvies = "DN65"
ElseIf kwAdvies2 < 82.5 Then kwAdvies = "DN80"
ElseIf kwAdvies2 < 107.1 Then kwAdvies = "DN100"
ElseIf kwAdvies2 < 131.7 Then kwAdvies = "DN125"
ElseIf kwAdvies2 < 160.3 Then kwAdvies = "DN150"
ElseIf kwAdvies2 < 210.1 Then kwAdvies = "DN200"
ElseIf kwAdvies2 < 263 Then kwAdvies = "DN250"
End If
Me.lblAdvies.Caption = kwAdvies
End Sub
m.vr.gr.Martin