FormatConditions wirkungslos
26.04.2017 09:05:54
Burkhard
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