So realisierst du Verzweigungen in VBA (Teil 1)

Um es ganz genau zu nehmen, ist bei diesem Thema zwischen bedingten Anweisungen und Verzweigungen zu unterscheiden.

Bei Wikipedia bin ich mit einer einfachen Erklärung zu beiden Begriffen fündig geworden:

„Eine Bedingte Anweisung ist in der Programmierung ein Programmabschnitt, der nur unter einer bestimmten Bedingung ausgeführt wird. Eine Verzweigung legt fest, welcher von zwei (oder mehr) Programmabschnitten, abhängig von einer (oder mehreren) Bedingungen, ausgeführt wird. Bedingte Anweisungen und Verzweigungen bilden, zusammen mit den Schleifen, die Kontrollstrukturen der Programmiersprachen. Sie gehören zu den wichtigsten Bestandteilen der Programmierung, da durch sie ein Programm auf unterschiedliche Zustände und Eingaben reagieren kann.“ [1]

Aus dem „einfachen“ Excel kennst du die Möglichkeiten, mit der WENN-Funktion in verschiedene Richtungen zu steuern. Möglicherweise hast du auch schon mit der WAHL-Funktion Berechnungen dieser Art ausgeführt.

Dieser Beitrag will Erläuterungen geben, wie mit VBA Verzweigungen programmiert werden können.

Vier Möglichkeiten habe ich dazu heraus gesucht, die das Thema allerdings nicht erschöpfend behandeln dürften.

1. Die Richtung mit If … Then … vorgeben

If … Then …, also Wenn … Dann … ist die einfachste Möglichkeit, das Programm in eine gewünschte Richtung zu treiben. Dies ist die bedingte Anweisung.

Ein Programmschritt wird dann ausgeführt, wenn eine bestimmte Bedingung erfüllt ist. Ist die Bedingung nicht erfüllt, gibt es keine Alternative, das Programm wird an dieser Stelle nicht fortgeführt.

Mit einem Beispiel lässt sich das am besten erklären:

Du hast ein etwas älteres Auto und möchtest es verkaufen. Dazu hast du annonciert.

Deine Preisvorstellung beläuft sich auf 3000 €. Du bist nicht gewillt, darüber zu verhandeln.

Der erste Kaufwillige bietet dir 2500 €. Diesem verkaufst du dein Auto nicht.

In VBA sieht das so aus:

Die Entscheidung in D34 wird durch dieses Makro herbeigeführt:

Sub VerkaufAuto1()
Range(„D34“).ClearContents
If Range(„D32“).Value >=Range(„D31“).Value Then
Range(„D34“) = „Verkaufen“
End If
End Sub

Was geschieht?

Der Inhalt aus Zelle D34 wird zuerst gelöscht. Dann wird die Prüfung vorgenommen. Ist das Angebot gemäß B32 größer oder gleich der Preisuntergrenze in D31, dann schreibe in D34 „Verkaufen“.

Beachte, dass ein If-Block immer mit End If abgeschlossen werden muss. Wenn du das vergisst, sagt VBA dir das.

Liegt das Angebot bei 3000 oder höher, wird durch das Makro in D34 „Verkaufen“ eingetragen. Liegt es darunter, bleibt D34 in diesem Fall leer. Das schafft eine gewisse Unsicherheit, ist das Makro überhaupt gelaufen?

Deshalb kann in einem weiteren Schritt das Makro erweitert werden, indem ein zweiter If-Komplex eingebaut wird. Dieser regelt, dass bei einem Angebot kleiner 3000 in D34 „Nicht verkaufen“ eingetragen wird.

Sub VerkaufAuto2()
If Range(„D32“).Value>=Range(„D31“).Value Then
Range(„D34″)=“Verkaufen“
End If
If Range(„D32“).Value <Range(„D31“).Value Then
Range(„D34″)=“Nicht verkaufen“
End If
End Sub

Dem ersten Makro habe ich dazu einfach einen zweiten If-Block angehängt und die gegenläufige Regel formuliert. Nun steht in D34 die richtige Entscheidung, das Makro ist also gelaufen.

Aber es geht in VBA noch einfacher.

2. Eine Richtung mit If … Then … Else … entscheiden

Bei dieser Anweisung werden im Makro die beiden Anweisungen in einem Zug verarbeitet. Das geht so:

Sub VerkaufAuto3()
If Range(„D32“).Value>=Range(„D31“).Value Then
Range(„D34″)=“Verkaufen“
Else
Range(„D34″)=“Nicht verkaufen“
End If
End Sub

Was ist hieran neu? Das Wörtchen “Else” ist es. Statt also einen zweiten If-Block zu erstellen, schreibe ich nach der ersten Bedingung „Else“, schreibe gleich anschließend die zweite Bedingung und schließe erst dann mit „End If“ ab.

Damit ist die klassische WENN-Abfrage in VBA umgesetzt.

Wenn-Dann-Sonst wird zu If-Then-Else.