Thema Datum  Von Nutzer Rating
Antwort
Rot Select Case-Anweisung fehlerhaft
 18.10.2016 14:10:52 Konstantin
NotSolved
18.10.2016 14:26:46 Gast72456
Solved
18.10.2016 14:42:44 Konstantin
Solved
18.10.2016 14:54:48 Gast44766
NotSolved

Ansicht des Beitrags:
Von:
Konstantin		 Datum:
18.10.2016 14:10:52		 Views:
1341		 Rating:
     
Antwort:
  Ja
Thema:
Select Case-Anweisung fehlerhaft

Hallo Leute,

 

ich möchte in einer Tabelle in einer bestimmten Spalte die Zellen je nach Inhalt einfärben. Das klappt eigentlich auch schon ganz gut. Nur für den Fall nicht, dass in der Zelle der Ausdruck "#NV" steht, welches dort manchmal erscheint, da die Zellen abhängig sind. Obwohl ich auch "Case Else" nutze, erscheint immer wieder ein Fehler.

 

Kann mir da wohl einer helfen? Ich habe schon vieles ausprobiert, wie z.B. noch

"Case "#NV" oder

"'Case Is <> "Future", "Ongoing", "Due", "Overdue", "Today", "Closed"" oder

"Case Not  "Future", "Ongoing", "Due", "Overdue", "Today", "Closed".

mit jeweils leerer Answeisungsliste. Nichts funktioniert bisher... :-/

 

Hier mein Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
LoopCounterStatus = 4
 
'Einfärben der Zellen in Spalte K und N je nach Statusangabe
For Each Status In Range(Cells(4, 11), Cells(LastEntry, 11))
 
         Select Case Status
             Case "Future"
                 Status.Interior.ColorIndex = 39
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 39
             Case "Ongoing"
                 Status.Interior.ColorIndex = 43
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 43
             Case "Due"
                 Status.Interior.ColorIndex = 44
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 44
             Case "Overdue"
                 Status.Interior.ColorIndex = 3
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 3
             Case "Today"
                 Status.Interior.ColorIndex = 45
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 45
             Case "Closed"
                 Status.Interior.ColorIndex = 33
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 33
             Case Else
               
         End Select
LoopCounterStatus = LoopCounterStatus + 1
 
Next

Vielen Dank schonmal.

Beste Grüße

Konstantin

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Select Case-Anweisung fehlerhaft
 18.10.2016 14:10:52 Konstantin
NotSolved
18.10.2016 14:26:46 Gast72456
Solved
18.10.2016 14:42:44 Konstantin
Solved
18.10.2016 14:54:48 Gast44766
NotSolved