Datum Fraglich

Sub AbgerundetesRechteck1_Klicken()
Dim wks As Worksheet
Dim Zelle As Range
If Selection.Rows.Count > 1 Then Exit Sub
Set wks = Worksheets("Erfassungsbeleg")
'wks.Range("T10:V11").ClearContents '-- dies dazwischen evtl. die anderen Zellen dazu
wks.Range("Q19") = Cells(Selection.Row, 2) '--Name
'wks.Range("X46").NumberFormat = "dd/mm/yyyy;@"
wks.Range("U41").Value = Cells(18, Selection.Column).Value
'wks.Range("AM46").NumberFormat = "dd/mm/yyyy;@"
wks.Range("AK41").Value = Cells(18, Selection.Column + Selection.Columns.Count - 1).Value
wks.Range("J34") = Selection.Cells(1, 1).Value
'wks.Range("X46").Value = Cells(5, Selection.Column).Value
'wks.Range("AM46").Value = Cells(5, Selection.Column + Selection.Columns.Count - 1).Value
'wks.Range("U22") = Cells(Selection.Row, 1) '--ID Nummer wird per Formel ersetzt
'wks.Range("S11") = Cells(Selection.Row, 39) '--Resturlaub aus SpalteAM
'wks.Range("G4") = Worksheets("Zusammenfassung").Cells(Selection.Row - 8, 4) '-- _
Resturlaub
'wks.Range("FL17") = Date '--jetzige Datum wird per formel
For Each Zelle In Selection
If Zelle.Font.Color = vbRed Then
MsgBox "Urlaub schon gedruckt", vbInformation, "Hinweis"
Exit Sub
End If
Select Case UCase(Zelle)
Case "U"
If wks.Range("U41") = "" Then
wks.Range("U41") = Format(Cells(18, Zelle.Column), "dd.MM.YYYY")
End If
wks.Range("AK41") = Format(Cells(18, Zelle.Column), "dd.MM.YYYY")
Case "F"
If wks.Range("U41") = "" Then
wks.Range("U41") = Format(Cells(18, Zelle.Column), "dd.MM.YYYY")
End If
wks.Range("AK41") = Format(Cells(18, Zelle.Column), "dd.MM.YYYY")
Case "S"
If wks.Range("U41") = "" Then
wks.Range("U41") = Format(Cells(18, Zelle.Column), "dd.MM.YYYY")
End If
wks.Range("AK41") = Format(Cells(18, Zelle.Column), "dd.MM.YYYY")
End Select
Next
Selection.Font.Color = vbRed
Sheets("Erfassungsbeleg").Range("o132:V133") = Application.UserName
Set wks = Nothing
Sheets("Erfassungsbeleg").Select
Range("A2").Select
End Sub