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?
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.
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?
Code:
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.