Cal_Rooster.Value error 438 ?

[Geminite]

Beste helpers,

Ik sta voor een raadsel en voordat ik me laat opnemen eerst jullie ga vragen.

Ik gebruik de calendar control die doormiddel van een button word opgeroepen, dit om ervoor te zorgen dat het goed word ingevuld (medere PC's, verschillende settings op datums en medere gebruikers die hun "eigen" format hebben) en werkt perfect.. druk op knop kalender staat op vandaag en vult netjes in (zelfde PC).

Maarnu..Op verzoek een timer aan het maken. Kalender's erin voor de datums, niks aan het handtje alles het zelfde. Maar krijg foutmelding 438 op:

Private Sub UserForm_Activate()
Calendar1.Cal_Rooster.Value = Date
End Sub

Volgens http://www.helpmij.nl/forum/showthread.php?p=2573914 ff de tools aanpassen, echter die stonden aan.

Opmerking: Wilde hem als een 97- 2003 opslaan (zoals bijlage), maar dan heb ik de keuze voor de MS Calendar Control 2007 of MScal.Calendar7 niet

Kan iemand mij hiermee helpen ?

Vraag 2: (waar ik nog niet naar heb gezocht): Op de bijlage staat op A19 de cell zoals ze hem liever hebben. Is het mogelijk om ipv 2 cellen het naar 1 cell te maken of moet je dan met 1 invulveld werken in de form ?

 

[snb]

Dat kan veel simpeler met:

Private Sub UserForm_Initialize()
    D1.Value = Date
    D2.Value = Date
    T1.Value = Time
    T2.Value = Time
End Sub

Sub voegtoe_click()
    Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Split(D1.Value & " " & T1.Value & "|" & D2.Value & "|" & T2.Value, "|")
End Sub

Zie voor een voorbeeld in Excel 2000 de bijlage

 

[Geminite]

Beste snb,

Bedankt voor de feedback. Ik heb uw voorbeeld bekeken, maar de vba was leeg.

Als ik de code goed begreep neem ik aan dat er maar 1 kalender nodig is. Maar helaas, de spoken in mijn pc zijn opstandig..

Bij de eerste test werkte hij zonder problemen, echter bij de 2e krijg ik foutmelding 424 ?

 

[snb]

Hoezo VBA leeg ? Het bevat toch een userform.
In de bijlage een koppeling vanuit het werkblad naar het userform.

De truc is dat je een calender control zowel voor datums als voor tijden kunt gebruiken, afhankelijk van de instellingen.

 

[Geminite]

Bedankt voor de nieuwe upload van de xls en genomen tijd.. Deze heeft een userform.

Vreemd genoeg, krijg ik object form missing melding (attached), maar heb ook geen calender control meer en neem aan dat hiernaar word gezocht.

Aangezien ik dit zeer vreemd vind ga ik eerst zoeken waarom, voordat ik verder kan.