|
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
|