ich habe ein Problem mit einem VBA Code
Stand:
Sub bedingte_rot()
Dim WS1 As Worksheet, Bereich As Range, Z As Long
Dim WS2 As Worksheet, Zelle As Range
Set WS1 = Sheets("Bewertung Gewässerbettdynamik")
Set WS2 = Sheets("Gesamtbewertung")
Set Bereich = WS1.[a1].SpecialCells(xlCellTypeAllFormatConditions)
For Each Zelle In Bereich
If Zelle.FormatConditions(1).Interior.ColorIndex = 46 Then
Z = Z + 1
WS2.Cells(Z, 1) = Zelle.Value
End If
Next Zelle
End Sub
leider liest der code die Zellen aus (das funktioniert tadellos) nur ohne Überprüfung der Bedingung, welche an die bedingte Formatierung geknüpft ist.
Es soll nämlich nur der Wert der Zelle ausgegeben werden, für die Zelle in der die Bedingungen der bedingten Formatierung auc erfüllt werden.
Wer kann helfen?
Thomas