Kalender in EXcel 2013 zonder access

[Khalid23]

Allen,

Kan iemand mij helpen

Ik ben opzoek naar een oplossing wanneer ik op een bepaald hokje klik er een kalender te voorschijn komt waar ik een datum uit kan selecteren. Dit moet ik kunnen gebruiken zonder Acces!.

Ik heb dit bestand op de site gevonden…als ik hem open dan werkt het wel….maar zodra ik de code kopieer en in een andere bestand gebruik dan werkt dat niet (ik heb excel 2013)

Ik heb deze code gebruikt. Maar loopt vast bij kalender.show .


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D4")) Is Nothing Then
LeftPos = ActiveCell.Left
Wdth = ActiveCell.Width
TopPos = ActiveCell.Top
Kalender.Left = LeftPos + Wdth
Kalender.Top = TopPos
Kalender.Show
End If
End Sub

Alvast bedankt

 

[edmoor]

Werkt hier prima in je voorbeeld document. Waarom het dan bij jou mis gaat zou ik zo niet weten. Welke melding krijg je?

 

[Khalid23]

Zie bijlage voor de fout!!

 

[edmoor]

Nogal wiedes. je hebt wel de code achter het werkblad gekopiëerd maar niet het bijbehorende VBA formulier en alle code die daar achter zit.
Tevens is er een module die je er ook bij nodig hebt.

 

[Khalid23]

Nogal wiedes. je hebt wel de code achter het werkblad gekopiëerd maar niet het bijbehorende VBA formulier en alle code die daar achter zit.
Tevens is er een module die je er ook bij nodig hebt.
Bekijk bijlage 277365

Oh ok.... waar vind ik het bijbehorende VBA formulier?
En welke module heb ik nodig? hoe kan ik deze toevoegen

Mijn dank is groot

 

[edmoor]

Het staat allemaal in het VBA project van het document dat je in #1 plaatste.

 

[Khalid23]

Het staat allemaal in het VBA project van het document dat je in #1 plaatste.

Ok bedankt ik ga zo kijken