Ab "B6" steht Mo, Di, Mi etc drin
Ab "C6" steht 01.01.2019, 02.01.2019 etc drin
Die Farbe habe ich über den MakroRecorder ermittelt.
Leider funktioniert die Bedingung nicht. Es werden die Werte in jede Zeile von 6 - 36
reingeschrieben.
Und wie mache ich es, dass es für jedes Worksheet ab Blatt 2 - 13 funktioniert.
Vielen Dank!!! Georg
Sub WerteEinfügen()
Dim i As Long
For i = 6 To 36
If Cells(i, 3) > 0 And Cells(i, 2).Font.Color = -16777024 Then
Cells(i, 4) = "8:00"
Cells(i, 5) = "10:30"
Cells(i, 6) = "00:30"
End If
Next i
End Sub