Hallo Gast71526.

Vielen Dank für die schnelle Antwort unten den guten Tipp mit dem xlPatternNone.

Zur Erklärung muss ich wohl leider weiter ausholen. Wir haben hunderte Excel-Protokolle mit teils komplizierten Berechnungen, die als Vorlage dienen. Diese müssen geprüft sein, bevor wir sie zur Benutzung freigeben. Wir verwenden sehr viele bedingte Formatierungen in den Excel-Protokollen. Üblicherweise haben wir 6 Regeln von bedingten Formatierungen. Beispielsweise wird in Regel A der betreffende Bereich automatisch ausgeblendet, wenn eine bestimmte Aktion zutrifft. Dies bedeutet, dass die Schriftfarbe und das Muster der Hintergrundfarbe weiss sein soll, die Rahmen ausgeblendet sind usw.. Eigentlich soll das Hintergrundmuster nicht auf weiss gesetzt werden, sondern auf dem nicht definierten "zurückgesetzten" Zustand gebracht werden. "Zurückgesetzt" bedeutet hier Bedingte Formatierung/Regel bearbeiten/Formatieren/Schrift/ "Inhalte löschen".

Wir haben ein Prüfmakro welches unter anderem auch das Interior.Pattern ausliest

                .Cells(num, 7) = dings.FormatConditions(j).Font.Bold
                .Cells(num, 8) = dings.FormatConditions(j).Font.Italic
                .Cells(num, 9) = dings.FormatConditions(j).Font.Underline
                .Cells(num, 10) = dings.FormatConditions(j).Font.Strikethrough
                .Cells(num, 11) = eRGeBe(dings.FormatConditions(j).Font.Color)
                .Cells(num, 12) = dings.FormatConditions(j).Interior.Pattern
                .Cells(num, 13) = eRGeBe(dings.FormatConditions(j).Interior.Color)
                .Cells(num, 14) = dings.FormatConditions(j).Borders(xlLeft).LineStyle
                .Cells(num, 15) = dings.FormatConditions(j).Borders(xlTop).LineStyle
                .Cells(num, 16) = dings.FormatConditions(j).Borders(xlBottom).LineStyle
                .Cells(num, 17) = dings.FormatConditions(j).Borders(xlRight).LineStyle
                .Cells(num, 18) = dings.FormatConditions(j).StopIfTrue
                .Cells(num, 19) = dings.FormatConditions(j).AppliesTo.Address
                .Cells(num, 20) = dings.MergeArea.Address

Ist der betreffende Bereich in einem "zurückgesetzten" Zustand, so wird "-4142" ausgegeben. Und genau so möchte ich ihn gerne haben. Setzt man diesen direkt mit einer Farbe, so wird eben "" oder "1" ausgegeben.

Meine Frage bezieht sich auf ein "ReparierMakro" welches die betreffende Bereiche nach meinen Wünschen "zurücksetzt". Ich hoffe ich konnte meine Problematik einigermaßen gut darstellen.

Erkläre mir bitte gerne wozu die "-4142" steht.

Viele Grüße, Soti