jkpieterse
Terugkerende gebruiker
- Lid geworden
- 18 mei 2015
- Berichten
- 2.830
Goto gebruik wordt gezien als "bad practise". Je kan dit deel:
herschrijven tot:
Ook bad practise: gegevens direct opvragen uit cellen in de UDF. De regel is eigenlijk dat je alle gegevens die een functie nodig heeft doorgeeft via de argumenten van de functie en dus als celverwijzingen.
Code:
Stap1:
dt1 = dt1 - 1: wd = Weekday(dt1, vbMonday)
If Mid(Week_Patroon, wd, 1) = "1" Then GoTo Stap1
If WorksheetFunction.CountIf(Holidays, Int(dt1)) > 0 Then GoTo Stap1
Code:
Do
dt1 = dt1 - 1
wd = Weekday(dt1, vbMonday)
Loop Until WorksheetFunction.CountIf(Holidays, Int(dt1)) <= 0 Or Mid(Week_Patroon, wd, 1) <> "1"