FormatConditions wirkungslos

Hallo miteinander,
das folgende Unterprogramm soll für einen variablen Bereich in der ersten Spalte die Hintergrundfarben für eine bedingte Formatierung setzen (gwPermSheet ist eine public worksheet Variable):


Sub setPermFormatConditions()
Dim iFirst As Integer, iLast As Integer
Dim sRange As String
Dim sCondition As String
On Error GoTo ErrorHandler
iFirst = FirstDataPermRow()
iLast = LastActivePermRow()
If Not iLast > iFirst Then Exit Sub
sRange = "$A$" & iFirst & ":$A$" & iLast
With gwPermSheet.Range(sRange)
.FormatConditions.Delete
sCondition = "=" & sRange & "=" & Chr(34) & "New" & Chr(34)
.FormatConditions.Add Type:=xlExpression, Formula1:=sCondition
.FormatConditions.Item(1).Interior.Color = vbYellow
sCondition = "=" & sRange & "=" & Chr(34) & "Change" & Chr(34)
.FormatConditions.Add Type:=xlExpression, Formula1:=sCondition
.FormatConditions.Item(2).Interior.Color = RGB(51, 204, 204)
sCondition = "=" & sRange & "=" & Chr(34) & "Delete" & Chr(34)
.FormatConditions.Add Type:=xlExpression, Formula1:=sCondition
.FormatConditions.Item(3).Interior.Color = RGB(204, 153, 255)
sCondition = "=" & sRange & "=" & Chr(34) & "corrected" & Chr(34)
.FormatConditions.Add Type:=xlExpression, Formula1:=sCondition
.FormatConditions.Item(4).Interior.Color = vbGreen
End With
GoTo CleanUp
ErrorHandler:
DisplayErrorMessage "setPermFormatConditions", Err
Err.Clear
CleanUp:
End Sub

Leider hat dieser Code keine Auswirkung auf das Tabellenblatt. Wenn ich in dem betreffenden Bereich z.B. "New" eingebe, bleibt der Hintergrund weiß.
Ich hab's übrigens auch mit nur drei FormatConditions probiert, das Ergebnis ist dasselbe.
Wo liegt der Fehler?
Grüße
Burkhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub setPermFormatConditions() Dim iFirst As Integer, iLast As Integer Dim sRange As String On Error GoTo ErrorHandler iFirst = FirstDataPermRow() iLast = LastActivePermRow() If Not iLast > iFirst Then Exit Sub sRange = "A" & iFirst & ":A" & iLast With gwPermSheet.Range(sRange).FormatConditions .Delete .Add xlCellValue, xlEqual, "New" .Item(1).Interior.Color = vbYellow .Add xlCellValue, xlEqual, "Change" .Item(2).Interior.Color = RGB(51, 204, 204) .Add xlCellValue, xlEqual, "Delete" .Item(3).Interior.Color = RGB(204, 153, 255) .Add xlCellValue, xlEqual, "corrected" .Item(4).Interior.Color = vbGreen End With GoTo CleanUp ErrorHandler: DisplayErrorMessage "setPermFormatConditions", Err Err.Clear CleanUp: End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread