Grundlagen der Programmierung mit VBA Visual Basic for

3.2.5 Prozeduren und Funktionen abbrechen
Prozeduren und Funktionen können während der Abarbeitung beendet werden.
Syntax
Exit Sub
Exit Function
Beispiel. Subroutine nach 100 Schleifendurchgängen beeenden
Sub Count()
Dim i As Integer
i = 0
Do
i = i + 1
If i > 100 Then
MsgBox i
Exit Sub
End If
Loop
End Sub
3.2.6 Rekursion
Wenn Programme sich selbst aufrufen, spricht man von Rekursion. Dies wird i.d.R. bei Such- oder
Sortieralgorithmen verwendet. Rekursion macht nur mit "Call By Value" Sinn, mit "Call By Reference"
funktioniert sie nicht. Mit dem klassischen FORTRAN war Rekursion unmöglich.
Beispiel. Berechnung der Fakultät einer Zahl: n! = 1*2*3*...*(n-1)*n
Sub fakultät()
MsgBox "Iterativ: " & FakI(6)
MsgBox "Rekursiv: " & FakR(6)
End Sub
Iterative Berechnung.
Function FakI (ByRef n As Long) As Long
Dim erg As Long, i As Long
Erg = 1
For i = 1 To n
Erg = erg*i
Next i
FakI = erg
End Function
Rekursive Berechnung.
Function FakR (ByVal n As Long) As Long
If n = 1 Then
FakR = 1
Else
FakR = n * FakR(n-1)
End If
End Function
Den Ablauf einer rekursiven Programmierung versteht man am besten, wenn man ihn sich im Debugger
anschaut.
Aufgabe. Programmieren Sie beide Möglichkeiten zur Berechnung der Fakultät einer Zahl. Verfolgen
Sie den Ablauf im Debugger. Ergründen Sie bei dieser Gelegenheit das VBA-Objekt MsgBox.
3.2.7 VBA Funktionen
Es gibt eine große Menge von fertigen Funktionen in VBA. Den besten Überblick erhält man in der
Online-Sprachreferenz Hilfe -> Visual Basic Sprachreferenz
22