Forums Neueste Beiträge
 

Bedingte Formatierung aufzeigen/auflisten

18/02/2008 - 08:58 von Eric March | Report spam
Moin, Moin!

Mir ist kein kürzerer Titel eingefallen…
Ich möchte erreichen über eine Prüfung eines markierten Bereiches alle
Zellen mit Bedingter Formatierung nebst deren 3 Bedingungen aufgelistet
zu bekommen.

Ziel der Aufgabe: eine Spalte (und weniger ein ganzer 2-dimensionaler
Range) auf fehlende oder falsche Bedingte Formatierung (per Ansicht)
prüfen zu können.

Wenn das Greifen einer Zelle nebst Runterziehen helfen würde das Problem
direkt zu beheben würden wir das tun. Das steht aber nicht zu Gebote.

Die Antwort/Ausgabe auf meine Frage mag ruhig auf einem neuen Blatt
erfolgen, Zelle + die 3 Bedingungsformeln (ohne das was diese Bewirken,
so nötig habe ich es nicht) genügen um meine Wünsche zu bedienen.

Geht so was?

Eric March

Kenne die Vergangenheit. In der Unwissenheit über die Vergangenheit
liegt das Verderben der Zukunft.
"Die Geschichte ist der beste Lehrmeister - mit den unaufmerksamsten
Schülern." Indira Gandhi

-== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==-
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
-= East and West-Coast Server Farms - Total Privacy via Encryption =-
 

Lesen sie die antworten

#1 Michael Mueller
18/02/2008 - 10:25 | Warnen spam
Hi Eric.

Ich möchte erreichen über eine Prüfung eines markierten Bereiches alle
Zellen mit Bedingter Formatierung nebst deren 3 Bedingungen aufgelistet zu
bekommen.
[...] Geht so was?



Probier mal folgenden Code in einem eigenen Modul.
Evtl. müssen Zeilenümbrüche korrigiert werden.

Er durchlàuft Deine markierten Zellen und schreibt in einem neuen Blatt die
bedingten Formatierungen.

HTH
Michi


-<Code starts here>-
Option Base 1

Sub BedingteFormatierung()

On Error Resume Next

Dim TypeIs As Variant
Dim OperatorIs As Variant
Dim Bereich As Range
Dim Zelle As Range

TypeIs = Array("CellValue", "Expression")
OperatorIs = Array("Between", "NotBetween", "Equal", "NotEqual", "Greater",
"Less", "GreaterEqual", "LessEqual")

Application.DisplayAlerts = False
Sheets("BedingteFormatierung").Delete
Application.DisplayAlerts = True

Set Bereich = Selection

Sheets.Add
ActiveSheet.Name = "BedingteFormatierung"
y = 1
Cells(y, 1) = "Zelle"
Cells(y, 2) = "1 - Typ"
Cells(y, 3) = "1 - Operator"
Cells(y, 4) = "1 - Formel(1)"
Cells(y, 5) = "1 - Formel(2)"
Cells(y, 6) = "2 - Typ"
Cells(y, 7) = "2 - Operator"
Cells(y, 8) = "2 - Formel(1)"
Cells(y, 9) = "2 - Formel(2)"
Cells(y, 10) = "3 - Typ"
Cells(y, 11) = "3 - Operator"
Cells(y, 12) = "3 - Formel(1)"
Cells(y, 13) = "3- Formel(2)"
Range(Cells(1, 1), Cells(1, 13)).Interior.ColorIndex = 17
Range(Cells(1, 1), Cells(1, 13)).Borders(xlInsideVertical).Weight = xlThin
Range(Cells(1, 1), Cells(1, 13)).Borders(xlInsideVertical).ColorIndex = 2

For Each Zelle In Bereich
y = y + 1
Cells(y, 1) = Replace(Zelle.Address, "$", "")
Cells(y, 2) = TypeIs(Zelle.FormatConditions(1).Type)
Cells(y, 3) = OperatorIs(Zelle.FormatConditions(1).Operator)
Cells(y, 4) = Zelle.FormatConditions(1).Formula1
Cells(y, 5) = Zelle.FormatConditions(1).Formula2
Cells(y, 6) = TypeIs(Zelle.FormatConditions(2).Type)
Cells(y, 7) = OperatorIs(Zelle.FormatConditions(2).Operator)
Cells(y, 8) = Zelle.FormatConditions(2).Formula1
Cells(y, 9) = Zelle.FormatConditions(2).Formula2
Cells(y, 10) = TypeIs(Zelle.FormatConditions(3).Type)
Cells(y, 11) = OperatorIs(Zelle.FormatConditions(3).Operator)
Cells(y, 12) = Zelle.FormatConditions(3).Formula1
Cells(y, 13) = Zelle.FormatConditions(3).Formula2
Next

Range(Cells(1, 1), Cells(y, 13)).HorizontalAlignment = xlHAlignCenter
Range(Cells(1, 1), Cells(y, 1)).Borders(xlEdgeRight).Weight = xlThin
Range(Cells(1, 5), Cells(y, 5)).Borders(xlEdgeRight).Weight = xlThin
Range(Cells(1, 9), Cells(y, 9)).Borders(xlEdgeRight).Weight = xlThin
Range(Cells(1, 13), Cells(y, 13)).Borders(xlEdgeRight).Weight = xlThin

End Sub

Ähnliche fragen