Businesstipps Microsoft Office

Excel VBA: Select-Case-Funktion

Lesezeit: < 1 Minute In VBA ist die Select-Case-Funktion aus der Programmierung nicht weg zu denken. Hier finden Sie ein einfaches Beispiel für eine Select-Case-Funktion mit einer entsprechenden Ausgabe in einem Makro:

< 1 min Lesezeit

Excel VBA: Select-Case-Funktion

Lesezeit: < 1 Minute

In der Regel wird  die Select-Case -Funktion benötigt, um mehrere Abfragen zu ermöglichen. Die Select-Case-Funktion ist erheblich übersichtlicher als die Wenn-Dann-Sonstwenn-Funktion. In diesem Beispiel wird der Wochentag des heutigen Datums abgefragt und ermittelt.

Sub PruefeTag()

Select Case Weekday(Date)
      Case 1, 7: MsgBox "Heute ist frei"
      Case 2: MsgBox "Heute ist Montag"
      Case 3: MsgBox "Heute ist Dienstag"
      Case 4: MsgBox "Heute ist Mittwoch"
      Case 5: MsgBox "Heute ist Donnerstag"
      Case 6: MsgBox "Heute ist Freitag"

End Select

End Sub

Die Syntax Select Case Weekday(Date) gibt einen Wert zurück, der dann in den nachfolgenden Zeilen abgefragt wird. In den Fällen 1 (Sonntag) und 7 (Samstag) wird die Meldung "Heute ist frei" ausgegeben. In den weiteren Zeilen werden die einzelnen Wochentage jeweils abgefragt. Die Funktion wird mit der Anweisung "End select" geschlossen.

PS: Qualitätsmanagement ist uns wichtig!

Bitte teilen Sie uns mit, wie Ihnen unser Beitrag gefällt. Klicken Sie hierzu auf die unten abgebildeten Sternchen (5 Sternchen = sehr gut):

Bitte warten...

PPS: Ihnen hat der Beitrag besonders gut gefallen?

Unterstützen Sie unser Ratgeberportal: