stehe grad voll aufm Schlauch.
Folgendes Problem:
ich brauche auf einem Tabellenblatt von jeder zweiten Zelle eine bedingte Formatierung für die rechte und untere Nachbarzelle.
hier schon mein Code-Snippet:
Sub bed_form()
For y = 16 To 114 Step 2
For x = 9 To 107 Step 2
Cells(y, x).FormatConditions.Delete
Cells(y, x).FormatConditions.Add Type:=xlExpression, Formula1:=" xxx "
Cells(y, x).FormatConditions(1).Interior.ColorIndex = 3
Cells(y + 1, x).ClearContents
Cells(y, x + 1).ClearContents
Next x
Next y
End Sub
Für xxx sollte folgende Formel eingetragen werden: =RUNDEN( [untere Zelle] ;0)RUNDEN( [rechte Zelle] ;0)
Wie löse ich das in VBA?
Danke.