Hallo und Danke nochmal!
Leider klappt es immer noch nicht ganz. Weglassen war der richtige Tipp. Ich füge ja eine neue bF ein, bekomme aber trotzdem ein Leerfeld "" als Wert zurück und nicht eine "-4142". Vorher wurde mir eine "1" ausgegeben. Abgefragt wird mit ".Cells(num, 12) = dings.FormatConditions(j).Interior.Pattern". Ich liste mal meine versuch auf, mit dem jeweiligem Ergebnis.
Was die anderen Zellen betrifft; ich habe alle Zellen und ihre bedingte Formatierungen separiert, somit sind keine anderen Zellen betroffen. Die Zusammenfassung von Zellen mit gleichen bedingten Formatierungen (applies to/wird angewendet auf) hat uns seit der Umstellung eher ungünstig getroffen, als geholfen.
VERSUCH 1 ergibt bei der Abfrage ".Cells(num, 12) = dings.FormatConditions(j).Interior.Pattern". = "1"
'BEDINGTE FORMATE SETZEN (gemäß Regel A)
Worksheets(i).Range(dings).FormatConditions.Add Type:=xlExpression, Formula1:=Replace("=$AR" & Selection.Row, Chr(34), "")
Worksheets(i).Range(dings).FormatConditions(ActiveSheet.Range(dings).FormatConditions.Count).SetFirstPriority
Worksheets(i).Range(dings).FormatConditions(1).ModifyAppliesToRange (ActiveSheet.Range(dings).MergeArea)
With Worksheets(i).Range(dings).FormatConditions(1)
.font.color = RGB(255, 255, 255)
.Interior.Pattern = XlPattern.xlPatternNone
.Interior.color = RGB(255, 255, 255)
.Borders(xlLeft).LineStyle = -4142
.Borders(xlTop).LineStyle = -4142
.Borders(xlBottom).LineStyle = -4142
.Borders(xlRight).LineStyle = -4142
.StopIfTrue = True
End With
'ZELL(SCHUTZ)FORMATE SETZEN (gemäß Regel A)
Worksheets(i).Range(dings).Select
Selection.Locked = True
Selection.FormulaHidden = True
VERSUCH 2 ergibt bei der Abfrage ".Cells(num, 12) = dings.FormatConditions(j).Interior.Pattern". = "" (Leerwert)
Hier habe ich nur ".Interior.Pattern = XlPattern.xlPatternNone" auskommentiert.
Wie bekomme ich jetzt eine "-4142" raus? bei den Borders hat das doch auch funktioniert. :-(
Viele Grüße,
Soti
|