Select Case
15.12.2014 21:53:22
Stefan
kann mir bitte jemand ein Beispiel für folgenden select case Fall posten?
Abgefragt werden soll die TextBox1 und der eine dazugehörige Zelle.
Beispiel:
Wenn in Textbox1 der Wert "Hammer" und in der in der Zelle "C5" nichts steht dann...
Wenn in Textbox1 der Wert "Zange" und in der Zelle "C6" nichts steht dann...
Momentan sieht der Code folgendermaßen aus:
If TextBox1 = "Hammer" And Sheets("Tabelle2").Cells(5, 3).Formula = "" Then
....
ElseIf TextBox1 = "Tour 2" And Sheets("Tabelle2").Cells(6, 3).Formula = "" Then
....
Else
...
Ich glaube das es mit selsct case kürzer geht, da mein Code sehr lang wird, ich möchte 25 Fälle abfragen.
Für Hilfe wäre ich dankbar
Stefan