Opgelost Subscript buiten bereik na installatie Windows 11

[maartenvers]

Had je misschien eerst een NL versie van Excel? En nu een Engelse?
Ik heb nl de engelse en de code "MonthName(Month(Now()))" zoekt het tabblad "March" en die bestaat niet.
Als ik het tabblad "Maart" verander naar "March" loopt alles zonder problemen.

 

[AHulpje]

@maartenvers
Zie #18 en #20.

 

[HSV]

Zoek je eigen code eens. (NL = 31 en waarschijnlijk UK = 44)

MsgBox Application.International(xlCountrySetting)

Misschien kan je er omheen bouwen als er meerdere gebruikers zijn dan jij alleen.

 

[NiekvanMeer]

Hm, toch 31. (Op de PC's met de oudere Windows variant is dit overigens ook 31)

 

[AHulpje]

Workaround:

Sub TestMaand()
    Debug.Print Application.WorksheetFunction.Text(Date, "[$-413]mmmm")
    Debug.Print Choose(Month(Date), "januari", "februari", "maart", "april", "mei", "juni", "juli", "augustus", "september", "oktober", "november", "december")
End Sub

 

[snb]

@Hulpje

Zie eens: https://www.snb-vba.eu/VBA_Excel_customlist.html

 

[AHulpje]

@snb
En juist omdat TS de maandnamen soms in het Engels terugkrijgt gebeurt dat ook met GetCustomListContents(4), al kan ik dat niet testen. Daarom mijn eigen lijstje gemaakt.

 

[NiekvanMeer]

Iets in deze trant is wel degelijk het issue;
Wanneer ik de tabblad namen wijzig naar de Engelse maanden, dan komt de foutmelding niet meer

 

[AHulpje]

Met deze versie krijg je de maandnamen altijd in het Nederlands, zie Function Maandnaam in module Locker.

 

[HSV]

Ik zou het meer zoeken in de opties van Excel aangezien dit sinds de installatie van Windows 11 is veranderd bij alle Pc's.
Kijk eens bij Bestand→Opties→Taal.

 

[NiekvanMeer]

Ik zie het. Dat werkt. Ook nu geen foutmeldingen meer.
@HSV; vreemd genoeg staan die op alle PC's op Nederlands; Windows 10 & 11

 

[NiekvanMeer]

Volgens mij zijn we er (soort van) aan uit.
Allen bedankt voor de goede hulp!
Ik sluit het topic.

 

[HSV]

Zou kunnen (voor nu), maar ik denk dat je vast nog andere problemen tegenkomt.

 

[snb]

Alle gegevens in 1 werkblad zetten met een kolom voor de datum voorkomt veel ellende.
Dan kun je filteren op jaar, maand, kwartaal, week, dag, etc.