Hallo,
das ist kein Wunder, Du machst Deine Vergleiche mit einem String/Text, nicht mit einer Zahl, die Anf.-zeichen und das Prozentz. müssen weg:
If (Cells(iCntr, 16).Value <= "33.33%") Then
also:
If (Cells(iCntr, 16).Value <= 33.33) Then
Außerdem könnte man das ganze viell. noch besser ohne VBA mit der bedingten Formatierung machen...
Gruß,
|