Datum VBA telt er 1 dag en 4 jaar bij

[tonissteiner]

'lo

heb een exel formulier waarin volgende makro staat:

Sub verlofdagen()

Dim rij As Long
Dim kolom As Long

Application.EnableEvents = False

Range("O73:U92").ClearContents

For rij = 7 To 63 Step 2

For kolom = 6 To 25

If Cells(rij, kolom) = "v" Then _
Range("O" & Rows.Count).End(xlUp).Offset(1) = Cells(rij - 1, kolom)

Next

Next

Application.EnableEvents = True

End Sub

echter deze makro geeft me als resultaat een datum die telkens 1 dag en 4 jaar verder is dan de eigenlijke dag. wie kan me helpen door deze datum terug te schroeven naar de bedoelde dag

 

[Wigi]

http://support.microsoft.com/kb/214330/nl

 

[Roncancio]

Kan je een voorbeeldbestand sturen zonder gevoelige informatie?
Dat werkt wat makkelijker.

Met vriendelijke groet,


Roncancio

 

[tonissteiner]

Roncancio en Wigi, beiden bedankt voor het snelle antwoord.
Wigi gaf reeds de oplossing. Bizar hoe eenvoudig een oplossing soms kan zijn.

't amuze nog

 

[Roncancio]

Roncancio en Wigi, beiden bedankt voor het snelle antwoord.
Wigi gaf reeds de oplossing. Bizar hoe eenvoudig een oplossing soms kan zijn.

't amuze nog

Ok.
Dan kan je de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio