Bedingte Formatierung auslesen

Markus · 1970-01-01T00:00:00+00:00

Hallo liebes Forum, ich stehe gerade auf dem Schlauch... :-) Ich habe eine Tabelle mit bedingten Formatierungen in jeder Zelle (als Formelabfrage). Ich möchte in der aktiven Zeile i im Bereich "A(i):AV(i)" die in den einzelnen Zellen hinterlegten Formeln der bedingten Formatierung per VBA auslesen und in einer Variablen zwischenspeichern und anschließend diese dann übergangsweise löschen. Später möchte ich die Zeile dann wieder mit den zwischengespeicherten Bedingten Formatierungen befüllen. Ich habe es mit folgendem Code versucht, der Compiler meckert dabei aber... Dim strBedingteFormatierung(1 To 256) As String Set ranAltBereich = _ Range("A" & Target.Row & ":IV" & Target.Row) x = 0 For Each ranZelle In ranAltBereich x = x + 1 strBedingteFormatierung(x) = ranZelle.FormatConditions(1).Formula1 Next Hier im Forum habe ich leider nichts gefunden, das dazu passen würde. Kann mir hier vielleicht jemand von Euch weiterhelfen? Vielen Dank vorab! Grüße aus der grauen Kölner Bucht :-) Markus

Hallo Rudi,
erstmal vielen Dank für Deine Antwort! :-)
Ich hatte gehofft, ich muss nicht so weit ausholen, aber das Ganze ist wohl zu unverständlich ohne den Kontext.
Ich möchte eigentlich die Zeile, in der sich der Cursor aktuell befindet, markieren. Dazu habe ich auch etwas in den Foren gefunden und in meine Arbeitsmappe eingebaut:

Private Sub Workbook_SheetSelectionChange(ByVal sh _ As Object, ByVal Target1 As Excel.Range) MarkierungEin Target1 End Sub

Dim ranAltBereich As Range
Dim lngColorIndex(1 To 256) As Long
Dim strBedingteFormatierung(1 To 256) As String
Dim bolDynMauszeiger As Boolean
Sub MarkierungEin(ByVal Target As Excel.Range)
Dim ranZelle As Range
Dim x As Integer
If bolDynMauszeiger = False Then Exit Sub
If Not ranAltBereich Is Nothing Then
x = 0
On Error Resume Next
For Each ranZelle In ranAltBereich
x = x + 1
ranZelle.Interior.ColorIndex = lngColorIndex(x)
Next
End If
Set ranAltBereich = _
Range("A" & ActiveCell.Row & ":IV" & ActiveCell.Row)
x = 0
For Each ranZelle In ranAltBereich
x = x + 1
lngColorIndex(x) = _
ranZelle.Interior.ColorIndex
strBedingteFormatierung(x) = ranZelle.FormatConditions(1).Formula1 Next
Target.EntireRow.Interior.Color = RGB(255, 204, 153)
ActiveCell.EntireRow.Formula1 = ""
End Sub Sub MarkierungAus()
Dim x As Integer
Dim ranZelle As Range
If Not ranAltBereich Is Nothing Then
x = 0
For Each ranZelle In ranAltBereich
x = x + 1
ranZelle.Interior.ColorIndex = lngColorIndex(x)
ranZelle.FormatConditions(1).Formula1 = strBedingteFormatierung(x) Next
End If
End Sub
Das Problem ist, dass ich die Tabelle bereits mit Bedingten Formatierungen befüllt habe, die offenbar vorrangig gegenüber der Workbook_SheetSelectionChange-Prozedur behandelt werden. Da meine Tabelle vollständig mit bedingten Formatierungen befüllt ist, funktioniert demnach das Markieren an der aktuellen Cursorposition nicht.
Aus diesem Grund möchte ich die bedingten Formatierungen der aktuellen Zeile zwischenspeichern und löschen, bis der Cursor in eine andere Zeile bewegt wird. Den fett markierten Code oben habe ich dazu eingebaut. Ohne diesen Code funktionert das Markieren problemlos, aber wie gesagt nur in Zeilen, die keine bedingten Formatierungen enthalten.
Eine Fehlermeldung gibt es an den von mir oben fett markierten Stellen, die Fehlermeldung lautet
Laufzeitfehler '1004' Anwendungs- oder objektdefinierter Fehler.
Vielleicht gibt es hierfür ja auch eine viel einfachere Lösung...?
Grüße aus der sich aufhellenden Kölner Bucht
Markus

Hallo Luc,

meckert wirklich der Compiler? Was sagt er denn? Syntax-Fehler oder was? Oder entsteht eher ein _ Laufzeitfehler? Das wäre mit Sicherheit hier der Fall, wenn eine Zelle nicht bedingt formatiert ist, denn das hast du nicht abgefangen!

Siehe hierzu bitte meine Antwort an Rudi.

Auch scheinen dich nur die Fmln, nicht die Einstellungen zu interessieren  aber wie gesagt, das musst du wissen

Öhh, Du hast natürlich recht! Ich will selbstverständlich alle Einstellungen, die ich in der bedingten Formatierung vorgenommen habe, zwischenspeichern... Im Eifer des Gefechts habe ich wohl den Überblick verloren... ;-)
Was macht meine bedingte Formatierung - und das bereitet zur Abwechslung auch keine Probleme ;-) :
1. Die zu prüfende Bedingung lautet: =$H9"". Diese Bedingung steht in jeder Zelle der Tabelle, die mit Daten gefüllt ist (es sollen Zwischensummenzeilen markiert werden).
2. Setze oben und unten eine dünne Linie.
3. Setze "Hellgelb" als Hintergrundfarbe.
Es wäre sehr nett, wenn Ihr mir den Code hierzu ebenfalls nennen könntet. Krieg ich aber zur Not auch über den Makrorekorder heraus. ;-)

With ranZelle.FormatConditions
If .Count > 0 Then
strBedingteFormatierung(x) = .Item(1).Formula1
usw.

Das habe ich ausprobiert, funkt aber leider trotzdem noch nicht.
Grüße
Markus.

Forumthread: Bedingte Formatierung auslesen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Bedingte Formatierung in Excel auslesen und verwalten

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)