VBA – Programmierung mit Excel Grundlagen

Dieser erzeugt als Ergebnis:
Seite 54
Unterprogrammtechnik
❢ Sind die formalen und die aktuellen Argumente Variablen und wird in einer Prozedur ein
formales Argument verändert, so verändert sich das dazugehörige aktuelle Argument des
aufrufenden Programms:
Sub Teil1()
Dim Var1 As Integer, Var2 As Integer
Var1 = 5
Var2 = 10
Var3 = Var1 + Var2 1
Teil2 Var1, Var2
Var3 = Var1 + Var2
End Sub
2
Abbildung 21: Ergebnis
des Prozeduraufrufs
Sub Teil2(Wert1 As Integer, Wert2 As Integer)
Wert1 = 15
Wert2 = 20
End Sub
Die Summe bei (1) beträgt 15, die Summe bei (2) ist 35. Obwohl die Variablen Var1 und
Var2 in der Prozedur Teil1 nicht geändert wurden, haben sie offensichtlich nach dem Aufruf
der Prozedur Teil2 aus Teil1 heraus die Werte der Variablen Wert1 und Wert2 angenommen.
Dieses ist durch die Form der Übergabe der Argumente bedingt. VBA übergibt
entweder Call by Reference – es wird nicht der Wert des aktuellen Arguments
übergeben, sondern eine Referenz auf die Speichervariable (Adresse im Arbeitsspeicher)
oder Call by Value – es wird nur der Wert des Arguments übergeben. Änderungen in der
aufgerufenen Prozedur haben keine Wirkung, weil dort die Adresse nicht bekannt ist.
➨ Das Problem kann umgangen werden, wenn die Argumentenliste die Wertübergabe
erzwungen wird. Dies ist über die Anweisung BYVAL möglich:
Sub Teil2(ByVal Wert1 As Integer, ByVal Wert2 As Integer)
Wert1 = 15
Wert2 = 20
End Sub
Hier hätte die Wertzuweisung innerhalb von TEIL2 keinen Einfluß auf die Werte von VAR1
und VAR2 in TEIL1.
Die Wertübergabe mittels BYVAL kann in der Argumentenliste für jede Variable einzeln
definiert werden.