Zellfarbe in geschütztem Arbeitsblatt
16.03.2004 15:02:31
WernerF
nachfolgendes Makro setze ich in einem Urlaubsplaner ein. Die ausgewählten Zellen werden mit einem U versehen; die Wochenenden und Feiertage ausgelassen. Nun möchte ich den ausgewählten Bereich noch mit einer Zellfarbe versehen. Das geht aber mit dem Makro nur, wenn das Arbeitsblatt nicht geschützt ist. Wenn ich den Schutz aktiviere, erscheint keine Farbe. Was muß ich ändern?
Sub U()
Dim rngC As Range
Dim rngFT As Range
On Error Resume Next
For Each rngC In Selection
Set rngFT = Range("AR5:ar25").Find(what:=CLng(Cells(rngC.Row, 2) + rngC.Column - 3), LookIn:=xlValues)
If Weekday(Cells(rngC.Row, 2) + rngC.Column - 3) > 1 And _
Weekday(Cells(rngC.Row, 2) + rngC.Column - 3) < 7 And _
rngFT Is Nothing Then
rngC = "U"
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
End If
Next
End Sub
Danke für die bisherigen Hilfen
Werner