Excel aufmöbeln mit VBA - Fachbereich Mathematik und ...

9 Die Sprachsyntax von Visual Basic
45 = 3*3*5, 30 = 2*3*5, Ggt = 3*5, Kgv = 2*3*3*5
Somit ist der Code der Funktion für die Berechnung des kleinsten gemeinsamen Vielfachen
ganz einfach:
Function Kgv(ByVal i As Long, ByVal j As Long) As Long
Kgv = i * j / Ggt(i, j)
End Function
9.6.17 Wiederholungsbedingung am Anfang
Manche Schleifen sollen unter bestimmten Umständen gar nicht durchlaufen werden. Die
Wiederholungsbedingung wird dann an den Anfang der zu wiederholenden Anweisungen
gesetzt. Die allgemeine Form lautet:
Do While (Wiederholungsbedingung)
Anweisung(en)
Loop
Ist die Wiederholungsbedingung schon am Anfang nicht erfüllt, wird der Schleifenkörper
überhaupt nicht durchlaufen. Eine Do . . . Loop While-Schleife wird dagegen immer mindestens
einmal ausgeführt, weil die Wiederholungsbedingung erst zum Schluss überprüft
wird.
Als Beispiel sei eine andere Funktion zur Ausrottung des Buchstabens »ß« geschrieben,
in der mit einer Do-While-Schleife gearbeitet wird:
Function KillSz2(ByRef s As String) As String
Dim i As Long, sz As String, r As String
sz = "" & Chr(223)
KillSz = s
i = InStr(KillSz, sz)
Do While (i > 0)
r = Right$(KillSzWhile, Len(KillSzWhile) - i)
KillSz = Left$(KillSz,i - 1,) & "ss" & r
i = InStr(i + 1, KillSz, sz)
Loop
End Function
Der bereinigte String ist zunächst leer. Abhängig davon, ob in der deutschen Version das
Zeichen an der Position mit dem Index i ein »ß« steht, wird dem bereinigten String
entweder ein »ss« oder das ursprüngliche Zeichen angehängt.
9.6.18 Die GoTo Sprunganweisung
Die Anweisung GoTo ist das Schmuddelkind unter den Anweisungen. Man sollte sie nur
in Notfällen verwenden, um bei fehlerhaftem Programmverlauf zu einer Fehlermeldung
zu springen. XXX Raus aus Schleifen Diese Anweisung beendet aber einen laufenden
152