Code afhankelijk van Windows taal versie (NL of ENG)?

[Demeter]

Bij het beantwoorden van deze post: http://www.helpmij.nl/forum/showthread.php?t=281538, ben ik tegen een datum format probleem aangelopen.

mbv de onderstaande code, loop ik door de tabbladen heen en als het tabblad de naam van de 1e maand + 2007 heeft dan wordt het aangegeven bereik leeg gemaakt.
De tabbladen hebben de namen van de maanden in het nederlands vb. januari2007, februari2007 etc.
Als ik deze code laat draaien onder een engelse versie van windows wordt deze niet juist uitgevoerd aangezien deze zoekt naar de engelse maannamen, draai ik deze onder een nederlandse windows dan wordt er wel gewerkt met de nederlandse maandnamen.
Ligt dit nu echt aan de verschillende versies of is mijn code niet juist gemaakt?
Tevens hoe kan ik dit probleem ondervangen als het aan verschillende versies van windows ligt?

Sub Werkbladen_legen()
Dim x As Integer
Dim y As Integer
Dim legeregelII As Long

y = 1

For x = 1 To ActiveWorkbook.Sheets.Count
    If Sheets(x).Name = MonthName(y) & "2007" Then
        legeregelII = Sheets(x).Range("A6:A200").Find(What:="", LookIn:=xlValues).Row
        Sheets(x).Range("A6:N" & legeregelII).ClearContents
        y = y + 1
    End If
Next

End Sub

Bedankt,
Ferenc

ps.
als je een engelse versie Windows hebt:
probeer eerst de code te draaien en kijk of er wat verwijdert wordt in de bladen.
Hernoem hierna de bladen (alleen de 1e twee) naar de engelse namen en draai de code nogmaals, nu zie je dat er wel gegevens worden verwijdert.

nederlandse versie Windows:
De code doet het goed, verander nu de tabbladen naar de engelse maannamen en je zal zien dat er niks meer gebeurt.

 

[Wigi]

Is dit beter?

Sub Werkbladen_legen()
Dim x As Integer
Dim y As Integer
Dim legeregelII As Long

y = 1

For x = 1 To ActiveWorkbook.Sheets.Count
    If Sheets(x).Name = Maandnaam(y) & "2007" Then
        legeregelII = Sheets(x).Range("A6:A200").Find(What:="", LookIn:=xlValues).Row
        Sheets(x).Range("A6:N" & legeregelII).ClearContent
        y = y + 1
    End If
Next

End Sub

Function Maandnaam(mnd As Integer) As String
    Select Case mnd
        Case 1: Maandnaam = "januari"
        Case 2: Maandnaam = "februari"
        Case 3: Maandnaam = "maart"
        Case 4: Maandnaam = "april"
        Case 5: Maandnaam = "mei"
        Case 6: Maandnaam = "juni"
        Case 7: Maandnaam = "juli"
        Case 8: Maandnaam = "augustus"
        Case 9: Maandnaam = "september"
        Case 10: Maandnaam = "oktober"
        Case 11: Maandnaam = "november"
        Case 12: Maandnaam = "december"
    End Select
End Function

Wigi

 

[Demeter]

Damn that's sweet.

Wigi,

Bedankt, dit is nu net een stukje probleemoplossen wat ik nog mis.
Moet alleen nog een s achter clearcontent.

Zat zelf meer in de hoek van format() te denken mbv [$-413] om er een nederlands tintje aan te geven. Dit liep iedere keer op niets uit.

Bedankt voor de snelle reactie en het wijzen op de 'work around'.


Groet,
Ferenc

 

[Wigi]

Moet alleen nog een s achter clearcontent.

Die s is onderweg naar het forum ergens blijven hangen.

Blij dat het opgelost is.