|
Hallo zusammen,
folgendes Problem:
Ich habe folgende Select Case Abfrage:
Select case Cells(zeile, 4).Value
Case "VS", "VS-TA", "KSPS", "KSPV"
...
Case "BBG", "PVL", "MT"
...
Case Else
End Select
Sie füht also abhängig davon welcher Inhalt (z.B. VS) sich in der Zelle (zeile, 4) befindet, etwas aus. Jetzt ändern sich allerdings die Sachen, die ich neben den beiden Case's geschrieben hab recht häufig, also "VS", "VS-TA",... Nun war der Wunsch, dass bei Änderungen oder wenn was neues hinzukommt, dies nicht mehr im Programmcode geändert werden muss. Sondern außerhalb von VBA im Excel-Sheet selbst.
So könnte beispielsweise in der Zelle A1 stehen:
"VS", "VS-TA", "KSPS", "KSPV"
Kann ich dann die Select Case so aufbauen:
Select case Cells(zeile, 4).Value
Case Cells(1, 1).value
....
End Select
Das geht natürlich nicht, oder? Wie kann ich das sonst geschickt lösen. Schon mal danke für Antworten.
Viele Grüße,
Stefan
|