ELSE zonder IF melding

[Doohan]

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

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

 

[edmoor]

Zet van deze regel het gedeelte achter Then onder de If:
If kwAdvies2 < 54.5 Then kwAdvies = "DN50"

Nog beter wijzig je dat hele gedeelte in een Select Case statement.

 

[snb]

Waarom gebruik je niet de kwflow om kwadvies te bepalen ?

 

[Doohan]

@edmoor dank je wel. Ik had niet door dat dat iets uitmaakte maar het werkt perfect.

@SNB ik snap niet helemaal wat je bedoelt. kwflow heeft een andere eenheid, dus ik gebruik die al in de regel waar kwAdvies1 word bepaalt. Misschien had ik het wel korter kunnen schrijven maar dat komt later nog wel eens .
mijn dank is weer enorm.

 

[edmoor]

Een If statement met een actie achter de Then is 1 If waarbij je geen End If hoeft te gebruiken.
Daarom gaat het fout met de Else die er onder staat.

 

[Doohan]

ik snap hem thx