Hallo zusammen, 

ich benötige Hilfe bei der Lösung folgendes Problems:

Es soll eine bedingte Formatierung in der aktiven Zelle durch den relativen Bezug zu einer anderen Zelle markiert werden.

Hier im Beispiel wäre das die Zelle oberhalb der ausgewählten.

Benutze ich eine "feste Zelle" wie z.B. A2 in meinem Makro (ohne x und y), funktioniert es.

Kann mir jemand weiterhelfen?

Sub Bedingte_Formatierung()

Dim x As Long
Dim y As Long

    ActiveCell.Offset(30, 1).Select
    x = ActiveCell.Row
    y = ActiveCell.Column
    
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=Cells(x - 1, y)""=""Nein"""
    Selection.FormatConditions(1).Interior.ColorIndex = 15
    Selection.FormatConditions(1).Font.ColorIndex = 16
       

End Sub

Viele Grüße und vielen Dank,

anin