Deze functie werkend krijgen

[ExcelAmateur]

Beste helpers,

Ik vond deze functie op het www, maar hoe krijg ik dit werkend?

Function ggd(a, b)
  if a = b
    return a
  else if a < b
    return ggd(a, b-a)
  Else
    return ggd(a-b, b)
End

Als ik dit in een module plaats krijg ik foutmeldingen.
Wat is dan de formule om de uitslag te krijgen?

 

[ExcelAmateur]

Ik heb het al gevonden,
de formule is

=GGD(A2:B2)

 

[E v R]

Excel?

zo?

Function ggd(a, b)
    If a = b Then
        ggd = a
    Else
        If a < b Then
            ggd = ggd(a, b - a)
        Else
            ggd = ggd(a - b, b)
     End If
    End If
End Function

 

[E v R]

GGd is een gewone functie in (NL)Excel, hoeft dus niet via VBA :d

 

[ExcelAmateur]

EvR,

Daar was ik ook achter gekomen.
Het was dus eigenlijk een uitleg hoe de formule werkt.

Maar toch bedankt voor de inzet.