|
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
|