formatconditions
11.11.2006 18:47:22
Jürgen
ich habe ein VBA Problem hinsichtlich des Setzen einer Formel innerhalb der bedingten Formatierung .
In dem beigefügtem Excel sollen mittels VBA diejenigen Zellen in der Spalte B mit einer bedingten Formatierung gesetzt werden, die in der gleichen Zeile in Spalte A den Text "Homework" enthalten.
Die Formel in der bedingten Formatierung soll auf die darüber liegende Zelle in Spalte B verweisen.
Ich erhalte mit folgendem Makro in folgender Excel Datei
https://www.herber.de/bbs/user/38086.xls:
Sub formatbed()
Dim c As Range
Dim rightString1, myForm As String
Dim myRow As Integer
For Each c In Range("a1:a20")
rightString1 = Right(c.Text, 8)
If rightString1 = "homework" Then
myRow = c.Row - 1
myForm = "=$B" & myRow & " <> """""
c.Offset(0, 1).FormatConditions.Delete
c.Offset(0, 1).FormatConditions.Add Type:=xlExpression, Formula1:=myForm
c.Offset(0, 1).FormatConditions(1).Font.ColorIndex = xlAutomatic
c.Offset(0, 1).FormatConditions(1).Interior.ColorIndex = 36
End If
Next c
End Sub
aber immer FALSCHE ZELLBEZÜGE in der Formel der bedingten Formatierung.
Diese verweisen manchmal auf Zeile 65325, Zeile 1 oder ähnliches.
Kann das jemand verifizieren ? Liegt das an der Excel Version 2000 ?
Vielen Dank im voraus
Jürgen