VBA bedingte Formatierung
04.05.2006 15:35:27
Dr.
ich versuche mich gerade an einer bedingten Formatierung, die Zellen überprüft, welche entweder positive oder negative Prozentwerte oder ein "-" enthalten. Je nachdem soll die Zelle grün, rot oder ohne Füllung gesetzt werden.
Der Code:
Sub test()
'vorherblabla
Cells(i, j).FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="0"
Cells(i, j).FormatConditions(1).Interior.ColorIndex = 3
Cells(i, j).FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="0"
Cells(i, j).FormatConditions(2).Interior.ColorIndex = 4
Cells(i, j).FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""-"""
Cells(i, j).FormatConditions(3).Interior.Pattern = xlNone
'nachherblabla
End Sub
Die ersten beiden Bedingungen greifen auch problemlos, aber die dritte kommt irgendwie nicht zum Zug; sprich, auch die Zellen, die als Ergebnis einer Fehlerformel ein "-" enthalten, werden grün hinterlegt und nicht farblos gesetzt.
Hat vielleicht jemand eine Ahnung, wo ich den Bockmist gebaut habe?
Besten Dank im voraus!