GRUNDLAGENKURSE | DIE WICHTIGSTEN BEFEHLE
​#17 Select Case - Verzweigungen
Excel VBA Befehle Folge 17: Select Case Verzweigung in Excel VBA
Inhalt dieser Folge:
-
Die Select Case Verzweigung als geniale Alternative zur If Then Else Verzweigung!
-
Wie kann ich Tabelleninhalte automatisiert auswerten?
Beispiel 1: Genaue Werte ansprechen
Sub Beispiel1()
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
Cells(2, 2).Value = "Bestanden"
End Select
​
End Sub
​
Beispiel 2: Mehrere Werte in einem Case ansprechen
Sub Beispiel2()
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
Cells(4, 2).Value = "Bestanden"
​
End Select
​
End Sub
​
Beispiel 3: Case mit Vergleichsoperatoren und For Next Schleife
Sub Beispiel3()
'Laufvariable für die For Schleife definieren
Dim i As Integer
For i = 2 To 10
Select Case Cells(i, 1).Value
Case Is >= 5
'Wenn: Cells(i,1).Value >= 5
Cells(i, 2).Value = "Nicht Bestanden"
​
Case Else
'Wenn die bisherigen Fälle nicht
Cells(i, 2).Value = "Bestanden"
End Select
Next
End Sub
​
Beispiel 4: Case mit "von - bis" und For Next Schleife
Sub Beispiel4()
'Laufvariable für die For Schleife definieren
Dim i As Integer
​
For i = 2 To 10
Select Case Cells(i, 1).Value
Case 1 To 4
'Wenn: Cells(i,1).Value = 1 bis 4
Cells(i, 2).Value = "Bestanden"
Case Else
'Wenn die bisherigen Fälle nicht
Cells(i, 2).Value = "Nicht Bestanden"
End Select
Next
End Sub
​
Beispiel 5: Zellenfarben anpassen mit For Next Schleife
Sub Beispiel5()
'Laufvariable für die For Schleife definieren
Dim i As Integer
For i = 2 To 10
Select Case Cells(i, 1).Value
Case 1 To 3
'Wenn: Cells(i,1).Value = 1 bis 3
Cells(i, 2).Value = "Bestanden"
Cells(i, 2).Interior.ColorIndex = 4 'Grün
Case 4
'Wenn: Cells(i,1).Value = 1 bis 3
Cells(i, 2).Value = "Mündliche Nachprüfung"
Cells(i, 2).Interior.ColorIndex = 6 'Gelb
Case Is > 4
'Wenn: Cells(i,1).Value > 4
Cells(i, 2).Value = "Bestanden"
Cells(i, 2).Interior.ColorIndex = 3 'Rot
End Select
Next
​
End Sub
​
Alle Folgen der VideoReihe auf einen Blick
​Folge 01 Arbeitsmappen und Tabellenblätter ansprechen, sortieren, ...
Folge 02 Zellen ansprechen
Folge 03 Meldeboxen, MsgBox (PopUpFenster)
Folge 04 Schrifteinstellungen (Fett, Kursiv, Schriftart, Schriftfarbe, Schriftgröße, ...)
Folge 05 Variablen & Datentypen in VBA
Folge 06 Arrays / Datenfelder in VBA
Folge 07 For Next - Schleifen in VBA
Folge 08 Dynamische Arrays
Folge 09 Rechenoperationen
Folge 10 Vergleichsoperatoren
Folge 11 Logische Operatoren
Folge 12 SuchFunktion (Einträge & Begriffe in Zellen suchen)
Folge 13 If Then Else - Verzweigungen in VBA
Folge 14 Do While Loop - Schleifen in VBA
Folge 15 Endlosschleifen verhindern
Folge 16 Die SortierFunktion (sortieren, nach mehreren Kriterien)
Folge 17 Select Case - Verzweigungen in VBA
Folge 18 InputBox (gestalten und Eingaben verwenden)
Folge 19 For Each - Schleifen in VBA
Folge 20 Borders-Eigenschaften (Dynamisches Tabellendesign erstellen)
Folge 21 Laufzeitfehler & Syntaxfehler - finden und beheben
Folge 22 On Error GoTo - Laufzeitfehler abfangen
Folge 23 Alle Farben in VBA nutzen (ColorIndex, vb Color, RGB)
Folge 24 Zeichen ersetzen mit der REPLACE Funktion
Folge 25 Zeichen trennen mit der SPLIT Funktion
Folge 26 Zeichen verbinden mit der JOIN Funktion
Folge 27 Auszug aus einer Zeichenkette - LEFT, RIGHT, MID Funktion
Folge 28 Zeichenketten vergleichen mit UCase & LCase
Folge 29 Arbeitsmappen Ereignisse (Open, BeforeClose, BeforeSave)
Folge 30 Tabellenblatt Ereignisse (Change, BeforeDoubleClick)
Folge 31 Zeilen und Spalten fixieren (FreezePanes)