Pivot Filter und bedingte Formatierung mittels VBA (VBA)

Martin Asal @, Montag, 20.06.2016, 14:27 (vor 1248 Tagen) @ rollendesr

Hi,

hier gilt: Eine Frage, ein Thread. Deswegen hier nun eine separate Antwort.

Gleichzeitig möchte ich eine bedingte Formatierung erstellen, die in einer Spalte(M:M), Zeile für Zeile überprüft ob in der Zelle A1...An ein Wert ist, wenn ja, dann nichts, wenn nein dann eine Farbe.

Nagel mich nicht auf den nächsten Satz fest: Eine bedingte Fromatierung geht nicht in Abhängigkeit zu anderen Zellen, sondern immer nur auf die formatierte.

Daher würde ich es ca wie folgt per VBA lösen:

Sub färbe()
Dim Bereich As Range, Zelle As Range
 
Set Bereich = ActiveWorkbook.Worksheets("Tabelle2").Range("A6:A20")
 
For Each Zelle In Bereich
    If IsEmpty(zelle.Value) Then
        zelle.Offset(0, 12).Interior.Color = RGB(128, 128, 128)
    End If
Next
End Sub
 

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum