Hallo Kai,

es gibt unzählige dieser Planer bereits im Netz, warum selber bauen? OK ein bisschen kann ich dich verstehen. Selber bauen macht mehr Spaß und man kommt dem was man sich vorstellt, am nächsten. 

Zu den Fehlern:

1. Fehler: man kann am 01.01. Urlaub eintragen.

wer das macht ist selbst schuld. Was ist mit den anderen Feiertagen? Diese müssten laut deiner Beschreibung alle Rot dargestellt sein. Du könntest also einen Eintrag über Worksheet_Change verhindern, indem du prüfst ob das Target rot ist und wenn ja dessen Eintrag automatisch wieder löschst. Natürlich musst du dazu den richtigen Farbcode für dein Rot kennen. Bei normalem Feuerwehrrot wäre der Code im entsprechenden Tabellenmodul wie folgt:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Interior.Color = RGB(255, 0, 0) Then Target.ClearContents
End Sub

2. Fehler: man kann am 24.12. und am 31.12. Urlaub eintragen. Das sind betriebsfreie Tage, da brauchen wir keinen Urlaub zu nehmen. 

Da hast du Glück. In den meisten Unternehmen muss hier zumindest ein halber Tag Urlaub genommen werden. Manchmal sogar ein ganzer Tag. In deinem Fall ist der Code ähnlich wie oben, du müsstest nur prüfen ob sich Target in der Spalte mit dem Datum 24.12 oder 31.12. befindet. Angenommen das Datum befindet sich in Zeile 2 dann wie folgt.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Interior.Color = RGB(255, 0, 0) Then Target.ClearContents
  If Day(Target.EntireColumn.Cells(2)) = 24 And Month(Target.EntireColumn.Cells(2)) = 12 Then Target.ClearContents
End Sub

zur Dritten Frage: wie ist es möglich Excel zu sagen, wenn eine Zelle »Grün« ist, dass automatisch ein Text bzw. ein Buchstabe eingefügt wird.

Gar nicht. Umgekehrt würde es über Bedingte Formatierung gehen. Wenn du ein U drin hast, dann könnte die Zelle Grün dargestellt werden. Aber so rum wie du es willst, müsstest du das irgendwie auslösen. Leider gibts in Excel kein Ereignis für Farbänderung. Du musst also einen Button bemühen in dessen Code du sagst: Suche grüne Zellen und schreibe dort ein U rein. Nur warum grade grüne Zellen? Laut deiner Beschreibung zeigen diese immer das aktuelle Datum. Willst du wirklich immer am aktuellen Datum automatisch ein U reinsetzen? Der Code könnte etwa so aussehen:

Sub GruenU()
  For Each c In ActiveSheet.UsedRange
    If c.Interior.Color = RGB(0, 255, 0) Then c.Value = "U"
  Next c
End Sub

Anstatt usedrange kannst du natürlich auch einen festen Range angeben. Sonst läuft dieser Code womöglich u.U. alle Millionen Zeilen durch, was durchaus lange dauern kann.

Ich wünsche gutes Gelingen. Sag Bescheid, wenn du weitere Fragen hast.

Gruß Mr. K.