FormatConditions Nederlans/Engels Excel

[Tweety1]

Ik heb een macro waarmee ik de voorwaardelijke opmaak toevoeg.
Alleen loop ik tegen het volgende probleem aan.
Start ik de macro in een Nederlandse excel dan gaat het goed.
Start ik de macro in een Engelse excel dan doet ie het niet goed.
De formule die ik gebruik plakt hij precies hetzelfde in het engels

FormatConditions.Add Type:=xlExpression, Formula1:="=VIND.ALLES(""E"";(VERT.ZOEKEN($E2;Werkvorm2;6;0));1)>0"

mvg
Kasper

 

[HSV]

Codes schrijven doe je in het Engels.
Ook formules dus.
Maar er is een mogelijkheid om ze in het Nederlands te laten op een Nederlandstalige versie.
FormulaLocal i.p.v. Formula, maar dat werkt dus niet in een Engelse versie.

 

[Tweety1]

Als ik de nederlandse formule vervang door een engelse dan doet ie het niet in het nederlands
als ik Formula1 vervang door FormulaLocal dan loopt de macro vast

Nederlands

Sub Voorw_Opmaak111()

Range("A2").Select
With Range("Jaar1")
.FormatConditions.Delete

'Oranje regel
.FormatConditions.Add Type:=xlExpression, Formula1:="=VIND.ALLES(""E"";(VERT.ZOEKEN($E2;Werkvorm2;6;0));1)>0"
.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
.FormatConditions(1).Interior.Color = 49407
.FormatConditions(1).Interior.TintAndShade = 0
.FormatConditions(1).StopIfTrue = False
End With
End Sub

Engels

Sub Voorw_Opmaak111()

Range("A2").Select
With Range("Jaar1")
.FormatConditions.Delete

'Oranje regel
.FormatConditions.Add Type:=xlExpression, Formula1:="=FIND(""E"";(VLOOKUP($E2;Werkvorm2;6;0));1)>0"
.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
.FormatConditions(1).Interior.Color = 49407
.FormatConditions(1).Interior.TintAndShade = 0
.FormatConditions(1).StopIfTrue = False
End With
End Sub

 

[HSV]

Puntkomma's vervangen door komma's.

 

[Tweety1]

Heb ik gedaan. Alleen loopt ie nog steeds vast

 

[HSV]

Heb je het zo gedaan?

.FormatConditions.Add Type:=xlExpression, Formula1:="=FIND(""E"",(VLOOKUP($E2,Werkvorm2,6,0)),1)>0"

 

[Tweety1]

Heb precies de zelfde regel en uitgevoerd in een Nederlandse excel versie.
De melding die ik krijg is fout 5: Ongeldige procedure-aanroep of ongeldig argument

 

[HSV]

Tijd voor een test-bestandje.

 

[Tweety1]

Hierbij een voorbeeldbestandje

Bekijk bijlage Voorw Opmaak.xlsm

Ik zou het graag in 1 dezelfde macro willen. Die zowel in Engelse of Nederlandse versie kan uitvoeren.

 

[HSV]

Test dit eens.

.FormatConditions.Add xlExpression, , IIf(Application.International(xlCountryCode) = 1 _
, "=FIND(""E"",(VLOOKUP($E2,Werkvorm2,6,0)),1)>0", "=VIND.ALLES(""E"";(VERT.ZOEKEN($E2;Werkvorm2;6;0));1)>0")

 

[Tweety1]

Het werkt. Bedankt.
Heb wel een kleine aanpassing gedaan. Heb namelijk de engelse formule de komma's terug gezet naar Puntkomma's.