Uitklaplijstje met data

[Asmaiac]

Goedemorgen,


Ik zit met iets waar ik helaas even niet uit kom.

Ik heb een VBA formulier in Excel gemaakt. Nu is er een uitklaplijstje met data (vanaf juni 2010 t/m dec. 2010). Het is de bedoeling dat men kan kiezen uit 1 van deze data. Nu is het de bedoeling dat je je minimaal 1 week van te voren opgeeft. Dus als ik het formulier straks op 1 juni open wil ik graag dat de eerst volgende mogelijkheid die in het uitklaplijstje staat 08-06-2010 is. En als ik het formulier bijv. 10 juni open dat de eerst volgende mogelijkheid in het uitklaplijstje 17-06-2010 is.

Hoop dat iemand mij verder kan helpen!


Alvast bedankt!

Groetjes

 

[Hoornvan]

Asmaiac,

Je heb geen voorbeeld toegevoegd maar kun je dan niet in de VBA zetten is Date+7?

 

[Asmaiac]

Goedemorgen,

Dank voor je reactie! :thumb: Had misschien inderdaad beter even een voorbeeld kunnen toevoegen. Mijn excuus voor mijn late reactie overigen (ivm wat vrije dagen heb ik niet eerder gereageerd).

Heb het nu op onderstaande manier opgelost:

If Blad3.Range("B2").Value = "1" Then
Blad3.Range("A3").Value = Blad3.Range("A2") + 8
Blad3.Range("A4").Value = Blad3.Range("A2") + 11
Blad3.Range("A5").Value = Blad3.Range("A2") + 15
Blad3.Range("A6").Value = Blad3.Range("A2") + 18
Blad3.Range("A7").Value = Blad3.Range("A2") + 22
Blad3.Range("A8").Value = Blad3.Range("A2") + 25
Blad3.Range("A9").Value = Blad3.Range("A2") + 29
End If

If Blad3.Range("B2").Value = "2" Then
Blad3.Range("A3").Value = Blad3.Range("A2") + 7
Blad3.Range("A4").Value = Blad3.Range("A2") + 10
Blad3.Range("A5").Value = Blad3.Range("A2") + 14
Blad3.Range("A6").Value = Blad3.Range("A2") + 17
Blad3.Range("A7").Value = Blad3.Range("A2") + 21
Blad3.Range("A8").Value = Blad3.Range("A2") + 24
Blad3.Range("A9").Value = Blad3.Range("A2") + 28
End If

If Blad3.Range("B2").Value = "3" Then
Blad3.Range("A3").Value = Blad3.Range("A2") + 9
Blad3.Range("A4").Value = Blad3.Range("A2") + 13
Blad3.Range("A5").Value = Blad3.Range("A2") + 16
Blad3.Range("A6").Value = Blad3.Range("A2") + 20
Blad3.Range("A7").Value = Blad3.Range("A2") + 23
Blad3.Range("A8").Value = Blad3.Range("A2") + 27
Blad3.Range("A9").Value = Blad3.Range("A2") + 30
End If

If Blad3.Range("B2").Value = "4" Then
Blad3.Range("A3").Value = Blad3.Range("A2") + 8
Blad3.Range("A4").Value = Blad3.Range("A2") + 12
Blad3.Range("A5").Value = Blad3.Range("A2") + 15
Blad3.Range("A6").Value = Blad3.Range("A2") + 19
Blad3.Range("A7").Value = Blad3.Range("A2") + 22
Blad3.Range("A8").Value = Blad3.Range("A2") + 26
Blad3.Range("A9").Value = Blad3.Range("A2") + 29
End If

If Blad3.Range("B2").Value = "5" Then
Blad3.Range("A3").Value = Blad3.Range("A2") + 7
Blad3.Range("A4").Value = Blad3.Range("A2") + 11
Blad3.Range("A5").Value = Blad3.Range("A2") + 14
Blad3.Range("A6").Value = Blad3.Range("A2") + 18
Blad3.Range("A7").Value = Blad3.Range("A2") + 21
Blad3.Range("A8").Value = Blad3.Range("A2") + 25
Blad3.Range("A9").Value = Blad3.Range("A2") + 28
End If

If Blad3.Range("B2").Value = "6" Then
Blad3.Range("A3").Value = Blad3.Range("A2") + 10
Blad3.Range("A4").Value = Blad3.Range("A2") + 13
Blad3.Range("A5").Value = Blad3.Range("A2") + 17
Blad3.Range("A6").Value = Blad3.Range("A2") + 20
Blad3.Range("A7").Value = Blad3.Range("A2") + 24
Blad3.Range("A8").Value = Blad3.Range("A2") + 27
Blad3.Range("A9").Value = Blad3.Range("A2") + 31
End If

If Blad3.Range("B2").Value = "7" Then
Blad3.Range("A3").Value = Blad3.Range("A2") + 9
Blad3.Range("A4").Value = Blad3.Range("A2") + 12
Blad3.Range("A5").Value = Blad3.Range("A2") + 16
Blad3.Range("A6").Value = Blad3.Range("A2") + 19
Blad3.Range("A7").Value = Blad3.Range("A2") + 23
Blad3.Range("A8").Value = Blad3.Range("A2") + 26
Blad3.Range("A9").Value = Blad3.Range("A2") + 30
End If

Het is namelijk de bedoeling dat je je voor de maandagen en donderdagen kunt inschrijven (op locatie 1). Echter... op locatie 2 kun je inschrijven op de dinsdagen behalve in de eerste week van de maand want dan is het de bedoeling dat je je inschrijft voor de maandag.

Iemand hier een oplossing op? Dat is denk wel een lastige?

Bovenstaande manier werkt gelukkig al wel (in blad 3 heb ik staan A2: =vandaag() / blad 3 B2: =weekdag(A2).


Groetjes,