29. März 2024, 15:24
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0422
  E03: case anweisung
 Von Torsten
 eMail
 Am 10. November 2009 um 17:01:43
 Frage Hallo,

ich versuche eine case - anweisung zu schreiben. weiß aber nicht so richtig, wie das geht.

Ich möchte in Abhängigkeit von 4 Bedingungen eine Zelle unterschiedlich formatieren.

und hab das mal so versucht: geht natürlich nicht, weil siehe oben ;-)


Sub Bedingte_Formatierung

Dim gleich As String
Dim besser As String
Dim schlechter As String
Dim vielschlechter As String

variable = besser


Select Case variable

Case "gleich"
Worksheets("Chefübersicht").Range("abw_kum_vj_vh").Interior.ColorIndex = 15

Case "besser"
Worksheets("Chefübersicht").Range("abw_kum_vj_vh").Interior.ColorIndex = 17

Case "schlechter"
Worksheets("Chefübersicht").Range("abw_kum_vj_vh").Interior.ColorIndex = 19

Case "vielschlechter"
Worksheets("Chefübersicht").Range("abw_kum_vj_vh").Interior.ColorIndex = 21


End Select

End Sub

Kann mir bitte jemand helfen?

Danke

Torsten
[ VB-/VBA-Forum | Archiv 0422 | Archiv-Übersicht ]
 Antworten
E03: case anweisung - Torsten 10. November 2009 um 17:01:43
Re: case anweisung - Tranquilizer 10. November 2009 um 17:13:50
Re: case anweisung - FreakFrossard 10. November 2009 um 17:19:51
Re: case anweisung - Torsten 10. November 2009 um 17:52:11
Re: case anweisung - Torsten 11. November 2009 um 11:54:45
Re: case anweisung - FreakFrossard 11. November 2009 um 14:26:35
Re: case anweisung - Torsten 12. November 2009 um 13:31:51

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum