Vraag


Acties:
  • 0 Henk 'm!

  • BoerAas
  • Registratie: Mei 2023
  • Laatst online: 26-05-2023
In Excel gebruik ik de volgende functie:

=(BOOGCOS(SIN(Q2*PI()/180)*SIN(H2*PI()/180)+COS(Q2*PI()/180)*COS(H2*PI()/180)*COS((R2-I2)*PI()/180)))/PI()*20000
om de afstand tussen 2 coordinaten te berekenen.
Ik wil deze formule omzetten naar VBA, als ik op internet zoek zie ik daik de functie BoogCos moet vervangen door ACOS Als ik dit doe, krijg ik de foutmelding op de ACOS, "Compileerfout: Sub of Function is niet gedefinieerd" . Wat doe ik hier fout

(ACOS(Sin(B3 * pi / 180) * Sin(B2 * pi / 180) + Cos(B3 * pi / 180) * Cos(B2 * pi / 180) * Cos((C3 - C2) * pi / 180))) / pi * 20000

Ook de aanroep ACOS() geeft dezelfde foutmelding.
Wat zie ik over het hoofd, moet iknog iets installeren?

Alle reacties


Acties:
  • +1 Henk 'm!

  • dixet
  • Registratie: Februari 2010
  • Laatst online: 11:14
Acos is geen VBA functie maar de Engelse naam voor de BOOGCOS Excel functie. Als je in VBA een Excelfunctie wilt gebruiken heb je daarvoor de engelse functienaam nodig.

En omdat het een Excel functie is en geen VBA functie moet je hem vooraf laten gaan door "WorksheetFunction"

code:
1
WorksheetFunction.Acos(...)

Acties:
  • 0 Henk 'm!

  • BoerAas
  • Registratie: Mei 2023
  • Laatst online: 26-05-2023
Hartelijk dank, dit is inderdaad de oplossing