Statt einer komplizierten If-Then-Else-Struktur können Sie Ihre VBA-Programme meistens mit einem übersichtlicheren Select Case schreiben. Lorenz Hölscher zeigt Ihnen, wie Sie Ihren Code damit optimieren.

So ziemlich die erste Struktur, die Sie in einem VBA-Programm eingesetzt haben, dürfte ein If Then Else gewesen sein. Und wahrscheinlich sind Sie auch dabei geblieben. Das ist schade, denn oft geht es besser als mit If(). Wenn Sie so etwas programmieren wie

Function Quartal(datWert As Date) As Integer
	Dim intMonat As Integer
	intMonat = Month(datWert)

	If intMonat = 1 Or IntMonat = 2 Or IntMonat = 3 Then
		Quartal = 1
	ElseIf intMonat = 4 Or IntMonat = 5 Or IntMonat = 6 Then
		Quartal = 2
	ElseIf intMonat = 7 Or IntMonat = 8 Or IntMonat = 9 Then
		Quartal = 3
	ElseIf intMonat = 10 Or IntMonat = 11 Or IntMonat = 12 Then
		Quartal = 4
	End If
End Function

Dann lässt sich das mit einer Select Case-Strukur direkt viel kürzer formulieren:

Function Quartal(datWert As Date) As Integer
	Select Case Month(datWert)
	Case 1, 2, 3:	Quartal = 1
	Case 4 to 6:	Quartal = 2
	Case 7 to 9:	Quartal = 3
	Case Is > 9 And Is <= 12:	Quartal = 4
	Case 13:		MsgBox "Das kann ja wohl nicht sein!"
	Case Else
		MsgBox "Dieser Fall tritt auch nicht ein."
	End Select
End Function

Wie Sie bemerkt haben, darf hinter einem Case wie bei Case 13 ein einzelner Wert stehen. Um ein Or aus der If-Konstruktion abzubilden, dürfen wie bei Case 1, 2, 3 auch mehrere Werte nacheinander durch Komma getrennt stehen.

In diesem Fall sind es sowieso aufeinander folgende Zahlen. Daher können Sie wie bei Case 4 to 6 auch direkt einen Zahlenbereich nennen. Beide Methoden dürfen wie bei Case 10, 14 to 20, 30 auch gemischt werden.

Für den Größer/Kleiner-Vergleich gibt es die reservierte Variable Is (die nicht als Operator wie If x Is Nothing missverstanden werden darf), wie Sie im Beispiel Case Is > 9 And Is <= 12 sehen.

Als Mitglied können Sie diesen Beitrag weiterlesen!

Werden Sie Mitglied und testen Sie akademie.de 14 Tage lang kostenlos!

In den ersten 14 Tagen haben Sie Zugriff auf alle Inhalte auf akademie.de, außer Downloads. Sie können in dieser Zeit ohne Angabe von Gründen stornieren. Eine E-Mail an service@akademie.de genügt. Nur wenn Sie Mitglied bleiben, wird der Mitgliedsbeitrag nach Ende der 14tägigen Stornofrist abgebucht.

Ich bin bereits Mitglied
Jetzt Mitglied werden und akademie.de 14 Tage kostenlos testen
Ich entscheide mich für folgende Zahlungsweise:
14 Tage Stornorecht:
Ich kann meine Mitgliedschaft in den ersten 14 Tagen jederzeit formlos stornieren, z.B. per E-Mail an service@akademie.de.

Downloads zu diesem Beitrag

Newsletter abonnieren