Kapitel 2
Die wichtigsten Sprachelemente von Excel-VBA

In diesem Kapitel:

Bedingungen erstellen und üben

Schleifen erstellen und verstehen

Sonstige Sprachelemente

Zusammenfassung

Lernkontrolle

Das Wesentliche einer Programmiersprache sind ihre Sprachelemente. In diesem Kapitel erfahren Sie, wie mithilfe von Verzweigungen, Schleifen und anderen Anweisungen Programme flexibel gestaltet werden können. Solche Sprachelemente lassen sich leider nicht mit dem Makrorekorder aufzeichnen und müssen selbst erstellt werden. Der richtige Einsatz der Sprachelemente in Verbindung mit dem entsprechenden Vokabular (der zur Verfügung stehenden Befehle) macht letztendlich die Kunst der Programmierung aus.

Bedingungen erstellen und üben

Bedingungen werden in Excel standardmäßig über die Anweisung If umgesetzt. Diese Anweisung kann bei Bedarf auch mehrfach geschachtelt werden. Des Weiteren haben wir eine zweite Möglichkeit, in Excel-VBA eine Abfrage zu erstellen. Diese Möglichkeit ist durch die Anweisung Select Case gegeben, über die Sie auf sehr übersichtliche Weise auch komplexere Bedingungen umsetzen können. Lernen Sie auf den folgenden Seiten Schritt für Schritt, wie Sie Bedingungen anwenden und erweitern können

Die Anweisungen If/Then/Else einsetzen

Sicher kennen Sie alle die Standardtabellenfunktion WENN. Genau diese Funktion gibt es auch als Sprachelement in VBA. Die Syntax entspricht dabei genau der Syntax der Tabellenfunktion. Die VBA-Funktion mit dem Namen If ist aber nicht an Limitationen gebunden und kann nahezu unendlich eingesetzt werden.

Die If-Anweisung ist in den meisten Fällen eine Prüffunktion, mit der Sie sicherstellen, ob beispielsweise eine Zelle einen gewünschten Wert enthält, ob ein Datentyp passt, ob eine Tabelle oder Datei existiert, ob eine Formatierung so weit korrekt ist oder vieles mehr.

Die Syntax der Funktion If lautet:

If Bedingung Then [Anweisung] [Else elseAnweisung]

Alternativ können Sie die Blocksyntax verwenden:

If Bedingung Then
  Anweisung


  Else


  elseAnweisung
End If

Für das Argument Bedingung geben Sie die Bedingung an, die erfüllt sein muss. Anweisung repräsentiert die Anweisungen direkt im Anschluss an Then, die ausgeführt werden, wenn die Bedingung zutrifft. elseAnweisung repräsentiert die Anweisungen, die ausgeführt werden, wenn die Bedingung nicht erfüllt ist.

Eine Löschrückfrage erstellen

Bei der ersten Aufgabe in diesem Kapitel wird eine Rückfrage programmiert, die am Bildschirm angezeigt werden soll, bevor ein bestimmter Bereich in einer Tabelle gelöscht wird. Dazu verwenden wir zum einen die Anweisung If und zum anderen die Funktion MsgBox, die Sie bereits im vorherigen Kapitel kennengelernt haben.

Erfassen Sie jetzt das Makro aus Listing 2.1.

Sub RückfrageVorLöschungEinholen()


  If MsgBox("Wollen Sie den Bereich A1:D10 löschen?", vbYesNo + _
  vbQuestion, "Löschenabfrage") = vbYes Then
     tbl_IF.Range("A1:D10").ClearContents
  End If


End Sub

Listing 2.1: Eine Löschrückfrage einholen.

Achten Sie darauf, dass die Anweisung If und das Schlüsselwort Then immer in einer Zeile erfasst werden. Nachdem Sie mit der ersten Zeile fertig sind, drücken Sie zweimal die Taste und schreiben dann sofort das End If.

Warum?

Weil das immer gern vergessen wird und später riesige Probleme bereitet, wenn Sie mehrere If-Then-Else-Verzweigungen haben und nicht mehr genau erkennen können, wo denn nun das End If hingehört.

Also behalten Sie als Kernregel bitte gleich Folgendes im Kopf: »Jede Struktur in Excel-VBA hat einen Beginn und ein Ende. Wenn Sie den Beginn erfassen, schreiben Sie immer sofort auch die End-Anweisung!«

Wird auf die Schaltfläche Ja geklickt, wird der Löschbefehl ausgeführt. Achten Sie dringend darauf, dass Sie beim Löschen den Tabellennamen des Bereichs mit angeben, den Sie löschen möchten. Die Methode ClearContents löscht alle Werte aus einem Bereich, behält die Formatierung jedoch bei.

Abbildung 2.1: Bei der Rückfrage ist die Schaltfläche Ja standardmäßig vorbelegt.

Eine Eingabeprüfung vornehmen

Bei der nächsten Aufgabenstellung soll der Anwender aufgefordert werden, eine Zahl zwischen 1 und 100 über eine InputBox einzugeben. Diese Eingabe schreiben Sie in die Tabelle tbl_IF in Zelle A1. Danach führen Sie eine Prüfung durch, die feststellt, ob die Zahl auch wirklich im vorgegebenen Wertebereich liegt.

InputBox haben Sie bereits im vorherigen Kapitel kennengelernt, nun erfolgt die praktische Anwendung im Makro aus Listing 2.2.

Sub EingabeEinerZahl()


  With tbl_IF
   .Range("A1").Value =
   InputBox("Erfassen Sie einen Wert zwischen 1 und 100!", "Eingabe", 100)


   If .Range("A1").Value >= 1 And .Range("A1").Value <= 100 Then
       MsgBox "Eingabe im geforderten Wertebereich!", vbInformation
     Else
       MsgBox "Eingabe nicht im geforderten Wertebereich!", vbCritical
   End If


  End With


End Sub

Listing 2.2: Bei der Prüfung müssen zwei Bedingungen erfüllt sein.

Gleich zu Beginn des Makros wird über die Anweisung With festgelegt, mit welcher Tabelle gearbeitet wird. Danach müssen gleich zwei Bedingungen erfüllt sein. Diese werden mit dem Operator And miteinander verknüpft. Ist die Bedingung erfüllt, wird der Then-Zweig angesteuert. In diesem Fall wird eine Meldung am Bildschirm ausgegeben, die die eingegebene Zahl bestätigt.

Im anderen Fall wird ebenso eine Meldung am Bildschirm ausgegeben. Beachten Sie bei beiden Meldungen die unterschiedliche Symbolkonstanten vbInformation und vbCritical.

Abbildung 2.2: Beim Aufruf von InputBox wurde als Standardwert vorab der Wert 100 eingetragen.

Vor dem Rechnen den Datentyp prüfen

Im folgenden Beispiel werden Sie sehen, wie wichtig es sein kann, einen Zellenwert zu prüfen, bevor Sie beginnen, mit dem Wert zu rechnen. Stellen Sie sich vor, in einer Zelle steht keine Zahl, sondern ein Text! In dem Fall würde unser Versuch, zu rechnen, mit einem Laufzeitfehler quittiert.

Um diese Aufgabe lösen zu können, lernen Sie eine weitere immens wichtige VBA-Funktion kennen. Diese Funktion heißt IsNumeric. Mit ihrer Hilfe können Sie prüfen, ob es sich bei einem Wert um einen Text oder um eine Zahl handelt. Zu dieser Funktion ist eigentlich nur zu sagen, dass ihr ein Wert, beispielsweise aus einer Zelle, übergeben wird. Sie gibt uns dann entweder True oder False zurück. Nur wenn die Funktion die Rückgabe True liefert, dürfen wir mit dem Wert aus der Zelle rechnen.

Die Aufgabe lautet: »Prüfe, ob in Zelle A1 der Tabelle...