in alle gelben Zellen "U" eintragen
08.12.2003 12:45:17
peter
in einer Anwesenheitsliste lasse ich über bedingte Formatierung alle Urlaubstage Gelb einfärben.
Wie erreiche ich es das in allen Gelb eingefärbten zellen ein "U" eingetragen wird.
Hier mein Versuch:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect ("tt")
If Target.Interior.ColorIndex = 6 Then
Target.Value = "U"
End If
ActiveSheet.Protect ("tt")
End Sub
klappt aber nicht.
Danke schon mal für jede Hilfe
Gruss
Peter