Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
i j <br />
Function Ggt(ByVal i As Long, ByVal j As Long) _<br />
As Long<br />
Dim h As Long<br />
If (i < 1 Or j < 1) Then Ggt = -1<br />
If j > i Then<br />
h = i : i = j : j = h<br />
End If<br />
Do<br />
i = i Mod j<br />
h = i : i = j : j = h<br />
Loop While (j > 0)<br />
’oder Loop Until (j = 0)<br />
Ggt = i<br />
End Function<br />
<br />
<br />
<br />
<br />
Do While (Wiederholungsbedingung)<br />
Anweisung(en)<br />
[Exit Do]<br />
Anweisung(en<br />
Loop<br />
<br />
<br />
<br />
<br />
<br />
<br />
While (Wiederholungsbedingung)<br />
Anweisung(en)