Habe ein Problem
Ich habe eine Tabelle die so aussieht:
beginnen mit :
Sonntag (Zelle I3)
0 (Zelle I6)
0
0
0
0
Ich will erreichten, dass mit VBA abgefragt wird ob heute z.B.Sonntag ist, dann die Zellen I6 bis I10 markiert werden.
Wenn heute Montag ist die Zellen J6:J10
Wenn heute Dienstag ist die Zellen H6:H10 usw. bis einschließlich Samstag.
Wollte es so lösen:
If Weekday(Now, vbSunday) = 1 Then Sheets("Worksheet").Range("I6:I10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range("J6:J10").Select 'Sonntag
If Weekday(Now, vbSunday) = 2 Then Sheets("Worksheet").Range("J6:J10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range("J6:J10").Select 'Montag USW.
Mein Problem ist, das er nun alle Zellen Montag bis Samstag blau macht. Obwohl heute Sonntag ist und er demnach nur den Sonntag markieren sollte.
Könnt Ihr mir bitte helfen.
Danke.
Vg Tom