Ich habe das Problem dass ich bei dem Teil "Format" von dem angefügten Code das Format falsch ist. Hier wir die KW 1 Ausgegeben da der 1.1.2021 ein Freitag war und die Formatierung entsprechend ist. Wie kann ich dies ändern?
Danke für eure Hilfe.
Sub FeiertageAusführen()
Jahr = Year(UFFCTool.FCKalender.Value)
D = (((255 - 11 * (Jahr Mod 19)) - 21) Mod 30) + 21
OsterMon = DateSerial(Jahr, 3, 1) + D + (D > 48) + 6 - _
((Jahr + Jahr \ 4 + D + (D > 48) + 1) Mod 7) + 1
KarFrei = OsterMon - 3
AufFahr = OsterMon + 38
PfingstMon = OsterMon + 49
TagDerArb = DateSerial(Jahr, 5, 1)
NationalFeier = DateSerial(Jahr, 8, 1)
NeuJa = DateSerial(Jahr, 1, 1)
WeihNacht = DateSerial(Jahr, 12, 25)
Silve = DateSerial(Jahr, 12, 31)
VJahr = Year(UFFCTool.FCKalender.Value) - 1
D = (((255 - 11 * (VJahr Mod 19)) - 21) Mod 30) + 21
VJOsterMon = DateSerial(VJahr, 3, 1) + D + (D > 48) + 6 - _
((VJahr + VJahr \ 4 + D + (D > 48) + 1) Mod 7) + 1
VJKarFrei = VJOsterMon - 3
VJAuffahr = VJOsterMon + 38
VJPfingstMon = VJOsterMon + 49
VJTagDerArb = DateSerial(VJahr, 5, 1)
VJNationalFeier = DateSerial(VJahr, 8, 1)
VJNeuJa = DateSerial(VJahr, 1, 1)
VJWeihNacht = DateSerial(VJahr, 12, 25)
VJSilve = DateSerial(VJahr, 12, 31)
For i = 4 To 55
KWStellen = Len(Cells(3, i).Value)
If Right(Cells(3, i).Value, KWStellen) = Format(OsterMon, "WW") Then
Cells(2, i).Value = ""
Cells(2, i).Value = "Ostermontag"
End If
If Right(Cells(3, i).Value, KWStellen) = Format(KarFrei, "WW") Then
Cells(2, i).Value = ""
Cells(2, i).Value = "Karfreitag"
End If