Code anpassen
Stefanglander
Ich benutze folgenden Code um Samstage und Sonntage rot zu markieren:
Private Sub Worksheet_Activate()
Dim r As Range
For Each r In Range("B3", "B7").CurrentRegion
If IsDate(r.Value) Then
Select Case Weekday(r.Value)
Case 1
'r.Interior.Color = vbwhite
r.Font.Color = vbRed
Case 2
'r.Interior.Color = vbwhite
r.Font.Color = vbBlack
Case 3
'r.Interior.Color = vbwhite
r.Font.Color = vbBlack
Case 4
'r.Interior.Color = vbBlue
r.Font.Color = vbBlack
Case 5
'r.Interior.Color = vbBlue
r.Font.Color = vbBlack
Case 6
'r.Interior.Color = vbBlue
r.Font.Color = vbBlack
Case 7
'r.Interior.Color = vbBlue
r.Font.Color = vbRed
Case Else
End Select
End If
Next r
End Sub
Nun habe dich einen Monat nicht mehr in der Zeile 3 stehen, sondern aufgeteilt in die Zeilen 3,7,11 und 15.
Wie muss ich den Code ändern das er funktioniert?
Gruss
Stefan
Anzeige