title image


Smiley naja...
vielleicht hilfts Dir ja was:

Dim lMin1 As Long, lMax1 As Long, lMin2 As Long, lMax2 As Long

lMin1 = 60

lMax1 = 89

lMin2 = 90

lMax2 = 100



With Forms("Wochenformular")("Prozent").FormatConditions



'die alten bedingten Formatierungen entfernen

Do while .Count > 0

.Delete

Loop





.Add acFieldValue, acBetween, Str(lMin1), Str(lMax1)

.Item(0).BackColor = RGB(255, 255, 255)

.Item(0).ForeColor = RGB(255, 0, 0)



.Add acFieldValue, acBetween, Str(lMin2), Str(lMax2)

.Item(1).BackColor = RGB(0, 255, 255)

.Item(1).FontBold = True

.Item(1).ForeColor = RGB(255, 0, 0)



End With

Gruß

Robert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: