Geeft geen foutmelding bij ingave van datum met kalender.

[HSV]

Ach zo,

Ik heb het net een stuk of 15 maal gedaan en werkt bij mij goed.
Of is vijftien te weinig?

 

[danny147]

Beste HSV

Kan je dat bestandje van jou dan eens hier plaatsen ajb ?
Raar maar waar, maar bij mij is het anders.

Groetjes Danny. :thumb:

 

[HSV]

Tuurlijk Danny.

Overigens heb ik het getest in Excel 2007 omdat ik die open had staan.

 

[HSV]

Je hebt gelijk, het wijzigd af en toe niet mee.

 

[danny147]

Beste HSV

Je hebt gelijk, het wijzigd af en toe niet mee

Na 15 keer

Is hier een oplossing voor ?
Of gewoon de datum opnieuw intypen, lijkt mij het eenvoudigste.

Groetjes Danny :thumb:

 

[HSV]

Het gebeurd bij cellen waar in de formulebalk de dag voor staat.
Bv. 'vr 22-04-2011' of 'za 22-04-2011' , de andere cellen hebben gewoon de datum in de formulebalk (22-04-2011).

Probeer even deze code.

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
   If Target.Value <> "" Then
     If Len(Target) > 10 Then
    Target.Value = Mid(Target, 4, 10)
   End If
 If Not Year(Target.Value) = [I3].Value Then Target.Value = Format(Day(Target.Value) _
        & "/" & Month(Target.Value) & "/" & [I3].Value, "ddd dd-mm-yyyy")
    End If
End Sub

 

[danny147]

Beste HSV

Bij het ingeven van de datum verwisseld hij de dag met de maand.

1-4 wordt 4-1-2011

Groetjes Danny. :thumb:

 

[HSV]

Probeer dit eens.

Target.Value = DateValue(Mid(Target, 4, 10))

 

[danny147]

Beste HSV

Deze doet het :thumb:

Nu moet ik er nog waarschuwingen in plaatsen.

1ste kolom moeten datums uit het eerste kwartaal zijn
2de kolom moeten datums uit het tweede kwartaal zijn
3de kolom moeten datums zijn van september of oktober
4de kolom moeten datums zijn van november en december

De bedoeling is dat ze 4 datums opgeven wanneer ze zeker thuis willen blijven maar niet tijdens de verlofperiodes.

Indien er nog problemen opduiken, dan hoor je het wel van mij.

Voorlopig zet ik deze topic op opgelost.

Bedankt

Groetjes Danny. :thumb: