Sub BedingteFormatierungen()
Dim raZelle As Range
With Worksheets("Praxisphasen").Range("B4:BA4")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=UND(B$3>=Daten!$B$3;B$3<=Daten!$C$3)"
.FormatConditions(1).Interior.Color = RGB(55, 86, 36)
End With
For Each raZelle In Worksheets("Praxisphasen").Range("B4:BA4")
If raZelle >= Worksheets("Daten").Range("B3") And raZelle <= Worksheets("Daten").Range("C3") Then
raZelle.Value = Worksheets("Bezeichnungen").Range("B3")
Exit For
End If
Next raZelle
End Sub