Hi, XXIIVBARookie.
With Worksheets("Praxisphasen").Range("B4:BA4")
'...
.FormatConditions.Add Type:=xlExpression, Formula1:="=UND(B$3>=Daten!$B$3;B$3<=Daten!$C$3)"
'...
End With
For Each raZelle In Worksheets("Praxisphasen").Range("B4:BA4").Cells
If raZelle >= Worksheets("Daten").Range("B3") And raZelle <= Worksheets("Daten").Range("C3") Then
'...
Next
Oben - in der Formel Formula1 - vergleichst du Werte aus dem Blatt Praxisphasen, Zeile 3 mit Werten aus dem Blatt Daten, Zeile 3.
In der ForEach - Schleife unten vergleichst du jedoch Werte aus Praxisphasen, Zeile 4 mit Daten, Zeile 3 - entspricht also nicht der Logik der Formel von oben. Und das wird dann vermutlich auch das Problem sein.
Also ...
If raZelle.Offset(-1) >= Worksheets("Daten").Range("B3") And raZelle.Offset(-1) <= Worksheets("Daten").Range("C3") Then
... und es sollte funktionieren.
Grüße
|