validatie met datums van huidige maand

[wieter]

Ik ben op de site van SNB aan het neuzen(vlaans) geweest.
Ik probeer een validatie te maken, waarin automatisch de datums van de huidige maand komen.
Dit is gelukt, maar bij het openen van het bestand, komt de melding dat er onleesbare inhoud in het bestand zit.
Na herstel werkt alles zoals verwacht.
Wat is de oorzaak?

Private Sub Workbook_Open()
ls = Join([Transpose(Index(Text(date(year(today()),month(today()),0)+row(offset(A1,,,day(date(year(today()),month(today())+1,0)),1)),"dd-mm-yyyy"),))], ",") 'datums deze maand
With Sheets(1).Range("D2,D4,D6").Validation
  .Delete
  .Add xlValidateList, , , ls
End With
End Sub

 

[Timshel]

Dat heb ik ook wel eens gemerkt. Kennelijk kun je maar een maximum van x karakters validatietekst opslaan:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("D2,D4,D6").Validation.Delete
End Sub

 

[HSV]

Dan zou ik het in de 'Before_close' zetten.
Als je niet opslaat........

 

[wieter]

Dat is dan de oplossing.
Je moet het allemaal maar weten, "dat er maar een beperkt aantal karakters in validatie" kunnen opgeslagen worden.
Bedankt Timshel en HVS

 

[Timshel]

Resumerend :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("D2,D4,D6").Validation.Delete
End Sub

Private Sub Workbook_Open()
    ls = Join([Transpose(Index(Text(Date(Year(Today()),Month(Today()),0)+Row(Offset(A1,,,Day(Date(Year(Today()),Month(Today())+1,0)),1)),"dd-mm-yyyy"),))], ",") 'datums deze maand
    Sheets(1).Range("D2,D4,D6").Validation.Add xlValidateList, , , ls
End Sub