datum in VBA

[regf]

probleempje

in bijgevoegde bestand kun je in tabblad 1 aanpassingen verrichten voor de snipper en/of ADV uren, met bhv VBA
dat werkt allemaal. Als extra kan de datum voor de vrije dag geslecteerd worden in het userform1, die datum wordt op blad 2 weggezet als datum maar de berekening in tabblad 3 werkt niet met de gegevens uit userform1, (aanpassing).
wijzig ik de datum met handmatige invoer in blad 2 dan klopt de berekening in blad 3 wel.
lijkt me dus iets in het VBA wat het probleem is.
wie kan me helpen.
RegBekijk bijlage snipperurenregistratietest.rar

 

[sylvester-ponte]

hoi reg

heb je ook een gezipt bestand ipv gerard?

groet sylvester

 

[OctaFish]

Ik heb er even een kalendertje bij geplakt; dat werkt (vind ik) zowiezo wel handiger.

 

[regf]

ik ga het eens uitproberen,
mooi hoor zo'n kalender erbij.
bedankt alvast.
Reg

 

[regf]

het probleem van de datum welke ik nu in de kalender kan selecteren blijft bestaan, in blad 2 verschijnt een datum, ogenschijnlijk en qua opmaak een datum, echter op blad 3 kan er niet gerekend worden. wel als ik de datum op blad 3 handmatig invoer, dqan klopt het wel.
Reg

 

[Jack Nouws]

Hallo en als je dit stukje code

Sheets("sheet2").Cells(irow, 7) = txtDatum.Value

verandert naar

Sheets("sheet2").Cells(irow, 7) = Format(DateValue(txtDatum), "dd:mm:yyyy")

Zo zul je ook deze regel

Sheets("sheet2").Cells(irow, 6) = Now()

nog aan kunnen passen.

Met vr gr
Jack

 

[HSV]

verandert naar

Sheets("sheet2").Cells(irow, 7) = Format(DateValue(txtDatum), "dd:mm:yyyy")

Met vr gr
Jack

Kan iets korter.

Sheets("sheet2").Cells(irow, 7) = DateValue(TextBox2)

 

[regf]

Heren,
bedankt voor de input maar het probleem blijft.
vreemd genoeg moet ik de datum in sheet 2 handmatig invoeren voordat het in sheet 3 kan rekenen.
ik voeg het bestandje nogmaals toe.
ik hoop dat iemand kan helpen.Bekijk bijlage snipperurenregistratietest1.rar

 

[sylvester-ponte]

hoi reg

ik heb gedaan wat oa HSV zij en het werkt gewoon


misschien heb je je eind datum in op blad3 niet aangepast

groet sylvester

 

[regf]

heren,
probleem opgelost, inderdaad een kwestie van de celeigenschap aanpassen, was datum is nu aangepast dd-mm-jjjj.

bedankt allemaal.
Reg

 

[aris85]

Hoe los je dan op dat iemand die 1-11-1985 intypt niet gelezen wordt als 11 januari? Dat probleem heb ik nl;

If Not IsDate(datum.Value) Then
MsgBox "Datum niet juist ingevoerd. DD-MM-JJJJ", vbExclamation, "Staff Expenses"
datum.SetFocus
Exit Sub
End If


Cells(emptyrow, 3).Value = datum.value