VBA kalender schrijf datum verkeerd weg

Status
Niet open voor verdere reacties.

rayda39

Gebruiker
Lid geworden
20 mrt 2009
Berichten
84
Beste Leden,

Afgelopen dagen ben ik zeer goed geholpen op het form.
Voor mijn userform werd mij geadviseerd een andere kalender te gebruiken.
VenA heeft deze voor mij "geinstaleerd":thumb:
Nu loop ik tegen het volgende aan.

Als ik de userform open en dan de datum 8-5-2019 selecteer (klik op tabblad Uren 3446, dan klik op vakje waar de datum staat, bestand is al attachment toegevoegd)
Vervolgens selecteer ik een naam (vakje naam)
Bij het vakje uren vul ik 8 in
Vervolgens klik ik op Controleren en dan komt het knopje Uren verwerken
Foto als voobeeld hieronder

Capture.PNG

De code schrijf de datum dan weg als 5-8-2019 ipv 8-5-2019 (tabblad Uren 3446)

Capture.PNG

Ik heb dit geprobeerd met diverse maanden, als de datum in de kalender begint met een 1 t/m 12 getal dan draaid hij ze om (maand wordt dag en dag word maand) als hij de wegschrijf, echter als in 13-5-2019 (enzo verder) gebruikt is er niets aan de hand.

Capture.PNG

Nu heb ik de volgende code aangepast van de CL_00 module.

Van
Code:
Public WithEvents v_label As MSForms.Label
Private Sub v_label_click()
   UserForm1.LblDatum = CDate(v_label.Tag)
   Unload Kalender
End Sub

Naar
Code:
Public WithEvents v_label As MSForms.Label
Private Sub v_label_click()
   UserForm1.LblDatum = v_label.Tag
   Unload Kalender
End Sub

Dit resuleerder in een beter gewenste effect, de geselecteerde datum kwam ook in het tabblad terecht. (zover ik kan zien schrijf hij waarde over maar ik heb kollom A op het tabblad Uren 3446 omgezet naar Datum.

Capture.PNG

Echter in het userform zie je het onderstaande (de getalnotatie)

Capture.PNG

Wie kan me helpen zodat hij, of er wel een datum in het userform blijft staan ook nadat ik het veranderd hebt, of dat hij de juiste datum wegschrijf.

Mvg een VBA digibeet
 

Bijlagen

  • Urenstaat in Excel 2019 Versie 1.60 (Office 2007-2016) 3446.xlsm
    53,1 KB · Weergaven: 41
De aanpassing in de CL_00 module moet je weer ongedaan maken. Het gaat fout bij het wegschrijven.

Code:
ar(t, 1) = [COLOR=#FF0000]Format([/COLOR]LblDatum.Caption[COLOR=#FF0000], "mm-dd-yyyy")[/COLOR]
 
Of:
Code:
ar(t, 1) = CDate(LblDatum.Caption)
 
Laatst bewerkt:
Beste VenA en HSV.

Uiteraad weer ontzettend bedankt hier voor :thumb:
Nu kan ik lekker weer verder gaan.

Ik ben weer een blij mens

:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan