Excel VBA Befehle aus Folge 17: Select Case Verzweigungen

Inhalt dieser Folge:

  • Warum die Select Case Verzweigung eine geniale Alternative zur If Then Else - Verzweigung ist!
  • Wie kann ich automatisiert Schulnoten in einer Tabelle auswerten?
Download
Diese Folge als PDF kostenlos herunterladen
Folge17 Select Case Verzweigungen.pdf
Adobe Acrobat Dokument 571.6 KB

Ausgangssituation:

Ziel:


Beispiel 1: Genaue Werte ansprechen

 

Sub SelectCase()

Select Case Cells(2,1).Value

Case 5

'Wenn: Cells(2,1).Value = 5

Cells(2,2).Value = "Nicht Bestanden"

Case 6

'Wenn: Cells(2,1).Value = 6

Cells(2,2).Value = "Nicht Bestanden"

Case Else

'Wenn die bisherigen Fälle nicht zutreffen:

Cells(2,2).Value = "Bestanden"

End Select

End Sub

Beispiel 2: Mehrere Werte in einem Case ansprechen

 

Sub SelectCase()

Select Case Cells(4,1).Value

Case 5, 6

'Wenn: Cells(4,1).Value = 5 oder 6

Cells(4,2).Value = "Nicht Bestanden"

Case Else

'Wenn die bisherigen Fälle nicht zutreffen:

Cells(4,2).Value = "Bestanden"

End Select

End Sub