Zelle eine Formattierung zuweisen wenn...
30.03.2015 15:41:38
Frederik
Ich möchte einer Zelle eine Formatierung zuweisen, wenn Weekday(Now) 1 ist.
Ich habe mir schon diesen Code geschrieben:
Dim TodayD As Byte, TodayM As Byte, WDName As Byte
TodayD = DatePart("d", Date)
TodayM = DatePart("m", Date)
WDName = Weekday(Now)
If WDName = 2 Then
Worksheets("Database").Range(Cells(TodayM + 4, TodayD + 1), Cells(TodayM + 4, TodayD + _
2)).Style.Name = "Neutral"
End If
Hier bekomme ich jedoch immer einen Run-time error 1004.
Habe auch schon versucht mit Range() und Cells zu spielen, komme aber leider nicht zu meinem gewünschten Ergebnis.
Weiß jemand Rat?
Ich danke im Voraus!
Frederik