Verspringende celnotatie

[Halbertsma]

Een, volgens mij, bekend probleem bij de excel gebruikers: de datumnotatie verspringt van dd-mm-yyyy naar mm-dd-yyyy.
Ik heb eenzelfde probleem maar kan niet tot een goede oplossing komen.

 'doorloop de rijen totdat meer dan 990 gevonden wordt.
     For jj = 1 To .UsedRange.Rows.Count - j
        If WorksheetFunction.Sum(.Cells(j, 14).Resize(jj)) > 990 Then Exit For
      Next

 'Maak selectie
    sq = Sheets("TBlok").Cells(j, 4).Offset(, -3).Resize(jj, 14)

    On Error Resume Next
        Sheets("Blokken").Activate
    If Err.Number > 0 Then
        With Sheets.Add
            .Name = "Blokken"
        End With
    End If
    
'plak de selectie in 'Blokken'
    Sheets("Blokken").Range("A1").Resize(UBound(sq), UBound(sq, 2)) = sq

in "TBlok" staat in kolom D de datum. Deze loopt van 30-8-2009 tot 4-9-2009.
Als ik met de rechtermuisnkop op een cel in kolom D klik en vervolgens celnotatie kies, staat deze bij alle data als 'standaard'
Ga ik vervoglens naar "Blokken" dan staat bij de data in augustus nog steeds de celnotatie als 'standaard'.
De data in september heeft nu ineens celnotatie 'datum' en is omgedraaid (het is nu ineens mm-dd-yyyy)

Hoe kan ik er voor zorgen dat de celnotatie op standaard blijft staan?

 

[Wigi]

Sorry, maar ik kan dit niet reproduceren. Excel 2003, Engelse instellingen.

Zie bijlage aub.

Wigi