Datum via kalender in cel invoegen

[poom]

Hallo Allemaal,

Ik wil in een excel bestand een kalender in een bepaalde cel invoegen.
Nu heb ik zo'n voorbeeld bestand bij jullie gevonden en wel "Kalender
handmatig opgemaakt vba.xls" (prachtig programma). Echter met
deze code kun je in elke cel een datum invoegen, terwijl ik juist in een
bepaalde cel wil invoegen.

Wie kan mij helpen om m'n code hierop aan te passen?

Bij voorbaat dank!

poom

 

[Janzwart]

De code in de macro is zo aangepast dat de datum in Cel D20 geplaatst wordt.
D20 kun je dus vervangen door de cel die jij wilt.

Private Sub plaats(x)
    Range("D20").Value = DateSerial(Year(Kalender.Tag), Month(Kalender.Tag), Me("Label" & x).Caption)
    Hide
End Sub

Bekijk bijlage Kalender Handmatig Opgemaakt (2).xls

 

[huijb]

Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.

 

[poom]

Werkt uitstekend!
Hartelijk bedankt Jan, zowel voor het resultaat als voor de snelle reactie!

poom

 

[huijb]

@ger77 Vraag verwijderd. Graag een eigen vraag maken. Het is niet toegestaan in iemand anders zijn vraag jouw probleem te plaatsen. Dit is onoverzichtelijk voor de helpers maar vooral voor de topicstarter. Bovendien is de vraag gedateerd