Autor Thema: Aussteigen aus If Clause  (Gelesen 79 mal)

Sam85

  • Jr. Member
  • **
  • Beiträge: 49
Aussteigen aus If Clause
« am: 31. Mai 2019, 10:34 »
Hallöchen,

Gibt es eine Möglichkeit aus dem IF Clause vorzeitig auszusteigen wenn die Bedingung erfüllt ist?
Sowas wie Do Until, Exit Do, Loop. Habe hier in einem Select Case zwei Prüfungen und es wird scheinbar erst die eine die Formula = True ergibt abgefragt und dann die andere, die ergibt dann wieder Formula = False. Und ich will halt schon bei dem ersten True aussteigen.

                    If fncPrüfungTrueThreeCriteria( _
                                                    fncPrüfungTrue(2, 0, 0, KO3H, Left({AUFDRUK_TXT.HMV-NR}, l2)), _
                                                    fncPrüfungTrue(1, KO3L, {AUFDRUK_TXT.LEISTUNGSKENNZEICHEN}, "", ""), True) Then
                        Formula = True
                    Else
                        Formula = False
                    End If     

                    If fncPrüfungTrueThreeCriteria(( _
                                                    fncPrüfungTrue(2, 0, 0, KO4H, Left({AUFDRUK_TXT.HMV-NR}, l2)) Or _
                                                    fncPrüfungTrue(2, 0, 0, KO4H, Left({AUFDRUK_TXT.HMV-NR}, l3))), _
                                                    fncPrüfungTrue(1, KO4L, {AUFDRUK_TXT.LEISTUNGSKENNZEICHEN}, "", ""), True) Then
                        Formula = True
                    Else
                        Formula = False
                    End If                         

Sam85

  • Jr. Member
  • **
  • Beiträge: 49
Re: Aussteigen aus If Clause
« Antwort #1 am: 31. Mai 2019, 11:17 »
Ok, wenn ich das Konstrukt in einen Loop stelle und eine variable als Boolean dazu...
Dim b as Boolean
b = False
Do Until b = True

If fncPrüfungTrueThreeCriteria( _
                                                    fncPrüfungTrue(2, 0, 0, KO3H, Left({AUFDRUP_TXT.HMVNUM}, l2)), _
                                                    fncPrüfungTrue(1, KO3L, {AUFDRUP_TXT.LeistKZ}, "", ""), True) Then
                        Formula = True
                        b = true
                        Exit Do
                    Else
                        Formula = False
                    End If     

                    If fncPrüfungTrueThreeCriteria(( _
                                                    fncPrüfungTrue(2, 0, 0, KO4H, Left({AUFDRUP_TXT.HMVNUM}, l2)) Or _
                                                    fncPrüfungTrue(2, 0, 0, KO4H, Left({AUFDRUP_TXT.HMVNUM}, l3))), _
                                                    fncPrüfungTrue(1, KO4L, {AUFDRUP_TXT.LeistKZ}, "", ""), True) Then
                        Formula = True
                        b = true
                        Exit Do
                    Else
                        Formula = False
                    End If
Loop