Thema Datum  Von Nutzer Rating
Antwort
Rot color coding
09.09.2019 15:18:44 Mike
NotSolved
09.09.2019 15:34:21 Gast22505
NotSolved
09.09.2019 15:54:21 Gast34967
NotSolved
10.09.2019 09:05:32 Gast65584
Solved
10.09.2019 10:28:41 Gast34967
NotSolved

Ansicht des Beitrags:
Von:
Mike
Datum:
09.09.2019 15:18:44
Views:
47
Rating: Antwort:
  Ja
Thema:
color coding

Hallo zusammen,

 

ich glaube, ich habe mich in meiner Programmierung total verrannt und finde die Lösung nicht mehr.

Ich habe eine sehr große Datei mit vielen Reitern und Formeln, die ich mit einige Makros berechne. Ein Ergebnis wir mir als prozentzahl in der Spalte P ausgerechnet und angezeigt. Jetzt möchte ich zu dieser Auswertung farbliche Unterscheidungen in der Spalte P haben.

bis 33% = rot

bis 66% gelb

bis 100% grün.

Natürlich habe ich die Spalte formatiert, unter anderem mit:
.Range("P2:P99999").NumberFormat = "0.00%"

 

Hier das Ende meines Makros für die Farbgestaltung.

 

Dim lastrow As Long
lastrow = Range("P" & Rows.Count).End(xlUp).Row
Dim iCntr
For iCntr = 1 To lastrow
If (Cells(iCntr, 16).Value <= "33.33%") Then
Cells(iCntr, 16).Interior.ColorIndex = 3
ElseIf (Cells(iCntr, 16).Value > "33.34%" And Cells(iCntr, 14).Value <= "66.66%") Then
Cells(iCntr, 16).Interior.ColorIndex = 6
Else
Cells(iCntr, 16).Interior.ColorIndex = 4
 
End If

Leider funktioniert das nicht, es wird fast alles rot markiert.

Vielen Dank für eure Hilfe.

Mike aus Köln

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot color coding
09.09.2019 15:18:44 Mike
NotSolved
09.09.2019 15:34:21 Gast22505
NotSolved
09.09.2019 15:54:21 Gast34967
NotSolved
10.09.2019 09:05:32 Gast65584
Solved
10.09.2019 10:28:41 Gast34967
NotSolved