Fout in code

[wieter]

In bijgevoegd bestand loopt het mis met de percentages bij feestdagen.
Als je op een feestdag werktijden invult, worden de percentages correct berekend(200%).
Als je nu het bestand opslaat en opnieuw opent, koppen de percentages niet meer.
Vindt iemand de oorzaak?
Ik denk dat dit stukje code de fout veroorzaakt.

Set c = Sheets("Blad2").Range("A2:A13").Find(What:=Datum, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Dag = 7
    Else
    Dag = Weekday(Datum, 2)
    End If
    If Dag < 6 Then
        DagTekst = "m-vr"
    ElseIf Dag = 6 Then
        DagTekst = "za"
    Else
        DagTekst = "zo/feest"
    End If

Bekijk bijlage Urenreg. met ort2.xlsm

 

[edmoor]

Vertel er ook even bij waar in al je code in dat document bovenstaande te vinden is.

 

[wieter]

In module 1

 

[edmoor]

Er gaat kennelijk iets mis met het bepalen van het dagnummer na de eerste berekening. Wijzig je voorbeeldcode eens in het volgende:

    'maak DagTekst
'   Set c = Sheets("Blad2").Range("A2:A13").Find(What:=Datum, LookIn:=xlValues, LookAt:=xlWhole)
'    If Not c Is Nothing Then
    If [d3].Value <> "" Then
        Dag = 7
    Else

 

[wieter]

Ja Ed, dat lost het probleem op voor Cel D3

 If [D3] <> "" Then
        Dag = 7
    Else
    Dag = Weekday(Datum, 2)
    End If
    If Dag < 6 Then
        DagTekst = "m-vr"
    ElseIf Dag = 6 Then
        DagTekst = "za"
    Else
        DagTekst = "zo/feest"
    End If

Maar als ik een loop wil maken voor D3 : D33(voor de andere feestdagen) krijg ik de code niet aangepast.

Bekijk bijlage Urenreg. met ort2.xlsm

 

[edmoor]

Snap ik. Mijn bedoeling was ook om je te wijzen op de oorzaak. Je zult dus moeten bekijken waarom na een eerste berekening het bepalen van het dagnummer kennelijk niet goed gaat.

Edit:
Na nog wat gezocht te hebben lijkt er een heel geniepige oorzaak te zijn.
Wijzig:

Set c = Sheets("Blad2").Range("A2:A13").Find(What:=Datum, LookIn:=xlValues, LookAt:=xlWhole)

eens in:

Set c = Sheets("Blad2").Range("A2:A13").Find(What:=Trim(Datum), LookIn:=xlValues, LookAt:=xlWhole)

 

[wieter]

Vooreerst bedankt Ed voor je doorzettende zoekwerk.
MAAAR!
Nu stelt het probleem zich omgekeerd.
Bij ingave van werktijden op een feestdag, zijn de percentages fout.
Na opslaan en opnieuw openen zijn de percentages wel juist.
Dus juist omgekeerd als eerst.
Bekijk bijlage Urenreg. met ort2.xlsm

 

[edmoor]

De eerste keer na het wijzigen van de code en opslaan zal het inderdaad fout zijn. Waarschijnlijk is het in orde als je eerst de tijden leeg maakt het bestand opslaat, het bestand weer opent en de tijden aanpast. Dan het bestand weer sluiten en openen om e.e.a. de effectueren.

 

[wieter]

Spijtig Ed, maar dat lost het probleem niet op.
Bij ingeven van tijden op een feestdag zijn de percentages fout.
Pas na opslaan en opnieuw openen zijn ze juist.
Hopelijk blijf jij je speurwerk volhouden, Bedankt.

 

[edmoor]

De wijziging veranderd niets aan de percentageberekening dus daar mag je dan zelf nog een keer naar kijken. Misschien dat dat spatie probleem op een andere plek ook nog zit?