Refactoring: Code optimieren - Teil 1

Fortsetzung folgt

Wenn der VBA-Editor bei der Anzeige Ihrer Module den horizontalen Scrollbalken einblendet, sollten Sie sich um die überlangen Zeilen kümmern. Es reicht, wenn man im Code vertikal scrollen muss (an dieser Stelle ein Dankeschön an den Erfinder des Mausrades).

Es gibt nun zwei Möglichkeiten: Entweder der in der Zeile enthaltene Code ist schon so weit optimiert, dass sich die Länge nicht mehr vermindern lässt – dann brechen Sie die Zeile einfach um, indem Sie am Ende des ersten Teils ein Leerzeichen und einen Unterstrich anfügen und den Rest in die folgende Zeile verbannen. Aus der Zeile
Set objAccess = CurrentProject.AllForms(strName)
entsteht dann beispielsweise die folgende Zeile:
Set objAccess = _
CurrentProject.AllForms(strName)

Der Zeilenumbruch kann an jeder Stelle außer innerhalb eines Ausdrucks erfolgen. Eine weitere mögliche Variante wäre folgende:
Set objAccess = CurrentProject. _
AllForms(strName)

Nicht gültig wäre diese Alternative:
Set objAccess = Current _
Project.AllForms(strName)

Etwas komplizierter wird es, wenn Sie den Zeilenumbruch innerhalb einer in Anführungszeichen befindlichen Zeichenkette einfügen möchten. In dem Fall teilen Sie die Zeichenkette zunächst an der gewünschten Stelle auf, indem Sie zwei in Anführungszeichen und durch ein Kaufmanns-Und (&) getrennte Teilzeichenketten erzeugen. Dieses Zeichen wird übrigens im englischspachigen Raum auch als Ampersand bezeichnet. Dann können Sie den Zeilenumbruch wie oben vor oder hinter dem Kaufmanns-Und vornehmen. So wird aus der Zeile
MsgBox "Beispiel für einen Zeilenumbruch"
dieser Zweizeiler (Einrückung nicht vergessen!):
MsgBox "Beispiel für " _
& "einen Zeilenumbruch"

Möglicherweise können Sie die Zeile auch auf ganz andere Weise klein kriegen. Bei den vorangegangenen Beispielen wurden bewusst kurze Zeilen gewählt, damit die Ausgangszeilen auch in einer Zeile abgedruckt werden können. Im wirklichen Leben hat man es aber beispielsweise mit endlosen Verkettungen von Bedingungen etwa in einer If-Then-Bedingung zu tun. Die Übersicht leidet dann nicht nur, weil die Zeile nicht auf der gegebenen Bildschirmbreite angezeigt werden kann, sondern auch, weil man unter Umständen Minuten braucht, um den Ausdruck zu analysieren.