Op formulier blijven indien textboxen leeg zijn

[Doohan]

Geachte heren,

Bij het testen van je vba kom je toch altijd weer dingen tegen. Zeker een beginner als ik.
Ik heb dus een formulier zie plaatje. Onder de knop bereken zit de code (zie code).
Als ik op bereken kilk en de omkaderde text boxen (zie plaatje) niet heb ingevuld. Dan zou ik graag op mijn formulier blijven ipv Fout 13. wie kan me helpen.

Private Sub butBerekenVentilatielucht_Click()
        
    'Bereken Button voert berekening uit van werkblad Ventilatielucht
    'De ingevulde txtboxen vullen bepaalde cellen op blad ventilatie
    'Een aantal labels haalt info uit bepaalde cellen op blad ventilatie
              
        Worksheets("Ventilatielucht").Range("c20") = CDbl(txtBinnentemp.Text)
        Worksheets("Ventilatielucht").Range("c21") = CDbl(txtBuitentemp.Text)
        Worksheets("Ventilatielucht").Range("c14") = CDbl(txtPower.Text)
        Worksheets("Ventilatielucht").Range("c9") = CDbl(txtQcombustionair.Text)
        Worksheets("Ventilatielucht").Range("c15") = CDbl(txtEfficiency.Text)
        Worksheets("Ventilatielucht").Range("c10") = CDbl(txtWarmtafgifte.Text)
        Me.lblVuit.Caption = Round(Worksheets("Ventilatielucht").Range("c38").Value, 0)
        Me.lblVin.Caption = Round(Worksheets("Ventilatielucht").Range("c42").Value, 0)
        Me.lblWarmteafgifte.Caption = Round(Worksheets("Ventilatielucht").Range("c34").Value, 0)
    
End Sub

 

[pasan]

Als je een voorbeeld bestand plaatst dan had ik kunnen testen
Probeer maar eens

  bereken = Array("txtBinnentemp", "txtBuitentemp", "txtPower", "txtQcombustionair", "txtEfficiency", "txtWarmtafgifte")
  For i = 0 To UBound(bereken)
  If Me.Controls(bereken(i)).Value = "" Then MsgBox "Vergeet niet " & Me.Controls(bereken(i)).Name & " in te vullen": Exit Sub
  Next

 

[Doohan]

perfect

Dank je wel Pasan

Het werkt perfect