Datum kalender in vaste cel

[csneek]

Goedemiddag,

Ik heb in Excel een knop gemaakt om een kalender te openen om een datum te kiezen. Dit werkt allemaal prima. Alleen nu wil ik nog dat de gekozen datum niet in de laatst actieve cel komt te staan, maar in cel E5. Hoe pak ik dit aan?

Alvast bedankt voor de reactie.

Met vriendelijke groet,

Clementine

 

[abracadaver909]

Beste Clementine,

Heb je voor mij de macro of het bestandje? Dat werkt een stuk makkelijker

Groeten Chris

 

[csneek]

Bijbehorende bestand

Het duurde even, maar hierbij het betreffende bestand: Bekijk bijlage bestandje.zip

Clementine

 

[Cobbe]

Even de code aanpassen:

Private Sub Calendar1_Click()

    [E5] = Format(Calendar1.Value, "dd/mm/yyyy")
    Unload Me

End Sub

 

[abracadaver909]

Beste Clementine,

Kun je dit bestandje ook compatible maken met excel 2003 (opslaan als ... '97-'03). Ik heb helaas geen nieuwe versie van excel

Groeten Chris

 

[abracadaver909]

Oh,

Ik zie net dat iemand mij voor is geweest. Ik hoop dat je ermee bent geholpen hehehe!

Groeten Chris

 

[csneek]

Bestandje 2003

Goedemiddag,

Helaas lukt het niet met bovenstaande code. Misschien wil iemand toch nog even proberen verder te helpen. Mijn huidige code is:

Sub ShowIt()
Userform1.Show
End Sub

Hier moet nog iets achteraan, maar ik weet niet wat. Als ik bovenstaande gebruik (misschien doe ik dat niet helemaal juist) dan werkt het niet.

Hierbij het bestandje in 2003:Bekijk bijlage bestandje 2003.zip

Groeten,

Clementine

 

[Haaren101]

Beste Clementine,

Kun je dit bestandje ook compatible maken met excel 2003 (opslaan als ... '97-'03). Ik heb helaas geen nieuwe versie van excel

Groeten Chris

ff off-topic:

Chris, gewoon even hier het compatiblity pack downloaden en installeren en je kan alle office files van de nieuwere versies lezen en schrijven

Ron

 

[robdgr]

Clementine,

De code van Cobbe plaats je door in de VBA-editor met de rechter muisknop op userform1 te klikken. Daar vind je
Private Sub Calendar1_Click(). De tekst t/m end sub vervang je door:

Private Sub Calendar1_Click()

    [E5] = Format(Calendar1.Value, "dd/mm/yyyy")
    Unload Me

End Sub

Het heeft dus niets te maken met de code die je vermeldt en die achter de knop zit.

 

[csneek]

Goedemiddag,

Hij werkt! (Ik had het op de verkeerde plaats gezet).

Bedankt voor de reacties.

Groeten,

Clementine

 

[Haaren101]

En dan moet je natuurlijk ook deze regel

ActiveCell = Calendar1.Value

verwijderen

Ron

 

[robdgr]

Clementine,

Je kunt

=TEKST(WEEKDAG(E5);"DDDD")

veranderen in

=E5

met celeigenschappen

dddd

Het resultaat is optisch hetzelfde.

 

[csneek]

Goedemorgen,

Bedankt voor de extra tip. Dat is inderdaad een stuk makkelijker!

Clementine