Nederlandse Formule omzetten naar Engels voor VBA

[BasNL]

Hallo allemaal,

Ik ben bezig met VBA module te schrijven, maar ik loop vast op de volgende formule hieronder die ik niet vertaald krijg naar het Engels om in VBA te gebruiken in .Formula = "formule"

=ALS.FOUT(INDEX(INDIRECT(TEKST.SAMENV("AV";RIJ())):INDIRECT(TEKST.SAMENV("CV";RIJ()));VERGELIJKEN(;INDIRECT(TEKST.SAMENV("AV";RIJ())):INDIRECT(TEKST.SAMENV("CV";RIJ()));-1));"0")

De formule in het Nederlands in werkblad werkt wel. Maar de functievertaler geeft een Error bij het omzetten.
Het zit waarschijnlijk in het INDIRECT(TEKST.SAMENV("AV";RIJ())) gedeelde, want bij een gewone cel verwijzing lukt het wel. Maar ik heb dit echt nodig. Bij andere formules lukt het me wel om (INDIRECT(TEKST.SAMENV("AV";RIJ())) te gebruiken.

Weet iemand de juiste oplossing?

Groet
Bas

 

[cow18]

even opnemen met de macro-recorder zou kunnen volstaan.
Ga op de cel staan, gebruik F2 en daarna enter.

    ActiveCell.FormulaR1C1 = "=IFERROR(INDEX(INDIRECT(CONCAT(""AV"",ROW())):INDIRECT(CONCAT(""CV"",ROW())),MATCH(,INDIRECT(CONCAT(""AV"",ROW())):INDIRECT(CONCAT(""CV"",ROW())),-1)),""0"")"

 

[BasNL]

Bedankt

Bedankt Cow18.
Dit is een super tip!

 

[AlexCEL]

Nog een tip:

https://nl.excel-translator.de/translator/

PS: deze formule doet precies hetzelfde als die van jou:

[NL] =ALS.FOUT(INDEX(INDIRECT("AV"&RIJ()&":CV"&RIJ());VERGELIJKEN(;INDIRECT("AV"&RIJ()&":CV"&RIJ());-1));0)
[EN] =IFERROR(INDEX(INDIRECT("AV"&ROW()&":CV"&ROW());MATCH(;INDIRECT("AV"&ROW()&":CV"&ROW());-1));0)

En die hele INDIRECT kan er volgens mij ook uit. Maar goed, daarvoor heb ik te weinig inzicht in wat je wilt bereiken.

 

[snb]

In plaats van een ingewikkelde Excel formule kun je beter VBA gebruiken

Sub M_snb()
   sn = range("AV1:CV2000")

    for j= 1 to Ubound(sn)
      if sn(j,1)=c00 then Exit for
    next

   if j<=ubound(sn) then msgbox sn(j,ubound(sn,2))
End Sub

 

[jkpieterse]

Doet deze formule niet exact hetzelfde eigenlijk (omlaag gekopieerd vanaf rij 1):

=IFERROR(INDEX($AV1:$CV1,MATCH(,$AV1:$CV1,-1)),"0")
=ALS.FOUT(INDEX($AV1:$CV1;VERGELIJKEN(;$AV1:$CV1;-1));"0")

 

[alphamax]

in A1

=ALS.FOUT(INDEX(INDIRECT(TEKST.SAMENV("AV";RIJ())):INDIRECT(TEKST.SAMENV("CV";RIJ()));VERGELIJKEN(;I NDIRECT(TEKST.SAMENV("AV";RIJ())):INDIRECT(TEKST.SAMENV("CV";RIJ()));-1));"0")

in VBA

Public Sub FormulaToVBA()
    MsgBox Range("A1").Formula
End Sub