datum Amerikaans

[bikkel9]

beste mensen,
met behulp van het forum een script gemaakt voor het dubbelklikken in de cel
en dan krijg je de datum
tot nu toe ging alles goed alleen bij 03-02-2009 gaat hij de maand en dag omdraaien
dus er komt 02-03-2009 heeft er iemand een iedee hoe dat komt ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
#Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iKolom As Integer
Dim iRij As Integer
iRij = Target.Row
iKolom = Target.Column
If iKolom = 5 Or iKolom = 6 Then
Cells(iRij, iKolom) = FormatDateTime(Now, 4)
End If
iKolom = Target.Column
If iKolom = 2 Then
Cells(iRij, iKolom) = FormatDateTime(Now, 2)
End If

End Sub#

alvast bedankt

 

[Wigi]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    With Target

        Select Case .Column
        
            Case 2
                
                .Value = Date
                .NumberFormat = "m/d/yyyy"
                
            Case 5, 6
            
                .Value = Now - Date
                .NumberFormat = "h:mm"
            
        End Select
        
    End With

End Sub

Code tags zijn

 en [ /code] zonder de spatie erin, en niet #

Wigi

 

[Roncancio]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
    Case 2
        Target.Value = Date
    Case 5, 6
        Target.Value = FormatDateTime(Now, 4)
End Select

End Sub

Edit: Ik word traag.:shocked: Wigi is me te snel af.

Met vriendelijke groet,


Roncancio

 

[bikkel9]

Hoi Wigi en natuurlijk Roncancio

het werkt weet je ook waarom het in januari wel goed gaat en in februarie niet mer?
even om wat van te leren

in iedergeval bedankt

 

[Wigi]

het werkt weet je ook waarom het in januari wel goed gaat en in februarie niet mer?

Waren de dagen daar misschien allemaal groter dan 12?

 

[bikkel9]

Hoi Wigi

heb even naar de data gekeken die de mensen hebben ingevuld
hoef het gelukkig zelf niet te doen
en daarbij zie ik inderdaad dat de dagen onder de 12 worden omgedraaid
(is niemand opgevallen)
heb het zelf eind december uitgetest en dan zie je het niet