|
danke für die Antwort. Leider funktioniert es nicht oder ich verstehe es nicht richtig wie ich das Code Stück einbauen soll. Ich habe in Set wks = Worksheets("Tabelle1")den Namen meines Sheets eingesetzt, "Validation Sheet" sonst nichts verändert.
Das Makro gibt dir die Bereiche mit den zugehörigen Bed. Formatierungen im Direktbereich des VBA-Editors aus. In der Voreinstellung ist dieses nicht sichtbar; muss daher einmalig eingeblendet werden (VBA-Editor Menü 'Ansicht' > 'Direktfenster' bzw. über Tastenkombi: STRG+G). Dieses Fenster ist eines der nützlichsten Arbeitsmittel und sollte man kennen. ;)
Ich möchte für jede bedingte Formatierung die Felder zählen, die der Bedingung entsprechen, die dem Beispiel: "=AND(ae3<>"""";ah3<>ad3+ae3)" und dann auf einem Tabellenblatt ausgeben. Für das Beispiel würde sich dann zum Beispiel das Ergbnis 10 über den definierten Bereich ergeben.
Ich weiß immer noch nicht genau was du mit Felder meinst - meinst du Zellen?
Angenommen du hast die folgende Bedingte Formatierung ...
(alle Zahlen die größer 5 sind werden der festgelegten Formatierungsregel nach formatiert)
=A1>5
... dem Bereich A1:C5 zugeordnet, welcher Zahlen im Bereich von -5 bis 20 enthält ...
... dann würde das Makro folgendes ausgeben:
Worksheets('Tabelle1')
Range('$A$1:$C$5')
Formula1 = "=A1>5"
StopIfTrue = Falsch
Wenn du jetzt also nach der Formel =A1>5 suchst, kommst du zu dem Bereich -> über den Bereich kannst du dann die Anzahl der Zellen ermitteln.
Für die Suche musst du also über alle Bedingten Formatierungen iterieren und auf die gesuchte Formel prüfen. Das Konzept davon soll dir das Makro demonstrieren. Es ist aber nicht die Fertiglösung zu deinem Problem - ich bin kein Freund von sowas!
|