Datum in range vba

[wlsandman]

Goedemorgen,

Ik zit met een klein probleempje, ik heb de volgende code in this workbook staan:

Private Sub Workbook_Open()

    Sheets("SSS").Range("A1") = ThisWorkbook.Path & "\" & ActiveWorkbook.Name
    Sheets("SSS").Range("A2") = ActiveWorkbook.Name
    Sheets("SSS").Range("A3") = Format(Now(), "yyyy" & "mm" & "dd")
    Sheets("Invoer").Range("A5:A78") = Format(Now(), "dd" & "-" & "mm" & "-" & "yyyy")
 
End Sub

De code zet eerst wat gegevens over de werkblad in sheet SSS. Daarna moet de code een range (A5:A78) op sheet Invoer vullen met de datum van vandaag.

Dit werkt allemaal prachtig, alleen kan ik niet met de waardes werken.

Als ik op een ander blad een formule maak met =ALS(de datum op invoer x is;waarde waar;waarde fout) dan geeft het een foutmelding omdat hij de waarde uit de cel in de range op blad invoer niet herkent ofzo. En als ik de datum handmatig in de range invoer, dan doet ie het wel.....

 

[Demeter]

Probeer eens:

Format(Now(), "dd-mm-yyyy")

Groet,
Ferenc

 

[wlsandman]

Probeer eens:

Format(Now(), "dd-mm-yyyy")

Groet,
Ferenc

:thumb:

Het werkt, stom van me dat ik die optie niet geprobeerd heb

 

[Demeter]

Het werkt, stom van me dat ik die optie niet geprobeerd heb

komt me bekend voor. lol

Groet,
Ferenc