Select Case
29.11.2004 17:56:10
Toni
Mit SELECT CASE frage ich den möglichen Inhalt einer Zelle ab. Die Liste der Einträge ist lang. Außerdem nutze ich die Aufzählung noch an mehreren anderen Stellen.
Ich möchte diese Liste möglichst in eine Variable (oder ähnliches) schreiben.
Dann wird der Code übersichtlicher und ich muss nur an einer Stelle ändern.
Auszug:
Select Case Range("C" & l).Value
Case "Abdach/Schleppdach", _
"Abferkelstall", "Abstellgebäude", "Back-/Kochhaus", _"Bergehalle", _
"Brückenwaage", "Carports", "Ferkelaufzuchtstall", "Garagen", _
"Gartenhaus", "Heizungsraum", "Hofladen", "Hobbyraum", "Kälbermaststall", _
"Kleintierstall", "Lagerhalle", "Maschinenhalle", "Pferdestall", _
usw....
End Select
Geht das ?
Wenn ja, wie?
Ciao
Toni