Uge nummer makro

her er en kalender, se om du kan bruge den.
Kør makroen kalender, når du står i et tomt ark.

Function Påskedag(InputYear As Integer) As Long    ' Returnerer datoen for Påskedag
    Dim d As Integer
    d = (((255 - 11 * (InputYear Mod 19)) - 21) Mod 30) + 21
    Påskedag = DateSerial(InputYear, 3, 1) + d + (d > 48) + 6 - _
              ((InputYear + InputYear \ 4 + d + (d > 48) + 1) Mod 7)
End Function

Function HelligdagsNavn(lngdate As Long) As String
' bruger funktionen Påskedag
    Dim InputYear As Integer, PD As Long, OK As Boolean
    If lngdate <= 0 Then lngdate = Date
    InputYear = Year(lngdate)
    PD = Påskedag(InputYear)
    OK = True
    Select Case lngdate    ' Tester nedenstående påstande mod datoen
    Case DateSerial(InputYear, 1, 1): HelligdagsNavn = "Nytårsdag"
    Case PD - 3: HelligdagsNavn = "Skærtorsdag"
    Case PD - 2: HelligdagsNavn = "Langfredag"
    Case PD: HelligdagsNavn = "Påskedag"
    Case PD + 1: HelligdagsNavn = "2. Påskedag"
    Case DateSerial(InputYear, 6, 5): HelligdagsNavn = "Grundlovsdag"
    Case PD + 26: HelligdagsNavn = "Store Bededag"
    Case PD + 39: HelligdagsNavn = "Kristi Himmelfartsdag"
    Case PD + 49: HelligdagsNavn = "Pinsedag"
    Case PD + 50: HelligdagsNavn = "2. Pinsedag"
    Case DateSerial(InputYear, 12, 24): HelligdagsNavn = "Juleaftensdag"
    Case DateSerial(InputYear, 12, 25): HelligdagsNavn = "1.Juledag"
    Case DateSerial(InputYear, 12, 26): HelligdagsNavn = "2.Juledag"
    Case DateSerial(InputYear, 12, 31): HelligdagsNavn = "Nytårsaftensdag"
    Case Else
    End Select
    OK = False
End Function
Public Sub Kalender()
    Dim År As Integer, Dato As Date, DD As Long, Md As Variant, Dag As Variant, HD As String
    Md = Array("", "Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "November", "December")
    Dag = Array("", "S", "M", "T", "O", "T", "F", "L")
    År = InputBox(" Indtast årstal for kalender")
    Application.ScreenUpdating = False
    Cells.MergeCells = False
    Range("A1") = ""
    Range("A1:R1").Interior.ColorIndex = 50
    Range("A2:R2").Interior.ColorIndex = 38
    For a = 1 To 6
        Cells(2, a * 3) = Md(a)
    Next
    Dato = "01-01-" & År
    For K = 1 To 18 Step 3
        Call MDRamme(K, 2)
        Olddato = Dato
        For I = 3 To 33
            DD = DateValue(Dato)
            HD = HelligdagsNavn(DD)
            Cells(I, K) = Dag(Weekday(Dato))
            Select Case Weekday(Dato)
            Case 1, 7
                Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = 15
                Cells(I, K + 2) = HD
            Case 2
                Cells(I, K + 2) = ""
                Cells(I, K + 2) = "'" & DatePart("ww", Dato, vbMonday, vbFirstFourDays) & " " & HD
                If HD = "" Then
                    Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = xlNone
                Else
                    Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = 40
                End If
            Case Else
                Cells(I, K + 2) = HD
                If HD = "" Then
                    Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = xlNone
                Else
                    Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = 40
                End If
            End Select
            Cells(I, K + 1) = Day(Dato)
            HD = ""
            Dato = Dato + 1
            If Month(Dato) <> Month(Olddato) Then Exit For
        Next
    Next

    ' -----------------næste halve år -------------
    Range("A34:R34").Interior.ColorIndex = 38
    For a = 7 To 12
        Cells(34, (a - 6) * 3) = Md(a)
    Next
    For K = 1 To 18 Step 3
        Call MDRamme(K, 34)
        For I = 35 To 65
            Olddato = Dato
            DD = DateValue(Dato)
            HD = HelligdagsNavn(DD)
            Cells(I, K) = Dag(Weekday(Dato))
            Select Case Weekday(Dato)
            Case 1, 7
                Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = 15
                Cells(I, K + 2) = HD
            Case 2
                Cells(I, K + 2) = "'" & DatePart("ww", Dato, vbMonday, vbFirstFourDays) & " " & HD
                If HD = "" Then
                    Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = xlNone
                Else
                    Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = 40
                End If
            Case Else
                Cells(I, K + 2) = HD
                If HD = "" Then
                    Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = xlNone
                Else
                    Range(Cells(I, K), Cells(I, K + 2)).Interior.ColorIndex = 40
                End If
            End Select
            HD = ""
            Cells(I, K + 1) = Day(Dato)
            Dato = Dato + 1
            If Month(Dato) <> Month(Olddato) Then Exit For
        Next
    Next
    Range("A1:R65").Select
    Range("R65").Activate
    Range("A3:R33,A35:R65").Font.Size = 8
    Range("A3:R33,A35:R65").Borders.LineStyle = xlContinuous
    Columns("A:R").Select
    Columns("A:R").EntireColumn.AutoFit
    Range("C:C,F:F,I:I,L:L,O:O,R:R").ColumnWidth = 10
    Rows("34:34").Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    Range("3:33,35:65").RowHeight = 12
    ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = 120
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
    End With
    Range("A1:R1").Merge
    Range("A1:R1").Borders.LineStyle = xlContinuous
    Range("A1:R1").HorizontalAlignment = xlCenter
    Range("A1") = År
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub
Sub MDRamme(KO, RK)
    Range(Cells(RK, KO), Cells(RK, KO + 2)).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
End Sub

Jeg bruger denne:
' Makro er oprettet d. 2 Juli 2004
' Indtastning af årstal og makro kald
'
Sub Indtast()

Dim Message, Title, Default, aarstal
Message = "Indtast årstal for det ønskede kalenderår Det tager lidt tid med at opdatere årstalet"  ' Prompt.
Title = "Kalenderprogram "
Default = "2004"  ' Standardværdi.
aarstal = InputBox(Message, Title, Default)

Worksheets("a").Cells(2, 7) = aarstal
Cells(3, 9) = ""
Cells(3, 8) = "Det tager lidt tid med at opdatere"
If aarstal = "" Then Cells(2, 7) = 2004
If aarstal <= 1899 Then Cells(3, 9) = "OBS! kalenderen er ikke opdateret"
If aarstal < 400 Then Cells(2, 7) = 2004
Call PaaskeDag
Call Slet
Call SaetUgeNr
Call MaerkeDage
Cells(3, 8) = " "
End Sub

' Beregning af ugenr. ud fra årstal
' Sletning af gamle mærkedage

Sub SaetUgeNr()

Range("C5").Select

UgeDag = 1
UgeNr = 1
CL1 = 1
CL2 = 3
RK = 5
RK2 = 5

For NytHalvaar = 1 To 2
    For NyMaaned = 1 To 6
        For UgeDag = 1 To 31
          If Cells(RK, CL1) = "Ma" _
            Then Cells(RK, CL2) = UgeNr _
            'Else: Cells(RK, CL2) = " "
          If Cells(RK, CL1) = "Ma" _
            Then UgeNr = UgeNr + 1
            RK = RK + 1
        Next UgeDag
      RK = RK2
      CL1 = CL1 + 3
      CL2 = CL2 + 3
    Next NyMaaned
  RK = 38
  RK2 = 38
  CL1 = 1
  CL2 = 3
Next NytHalvaar

End Sub

' Beregner påskedag ud fra fuldmåne dato

Sub PaaskeDag()
y = Worksheets("a").Cells(2, 7)

Dim FirstDig, Remain19, temp
Dim tA, tB, tC, tD, tE

FirstDig = y \ 100
Remain19 = y Mod 19

'Fuldmåne beregning
    temp = (FirstDig - 15) \ 2 + 202 - 11 * Remain19
    If FirstDig > 26 Then temp = temp - 1
    If FirstDig > 38 Then temp = temp - 1
   
    If ((FirstDig = 21) Or (FirstDig = 24) Or (FirstDig = 25) _
        Or (FirstDig = 33) Or (FirstDig = 36) Or (FirstDig = 37)) _
        Then temp = temp - 1
       
    temp = temp Mod 30
   
    tA = temp + 21
    If temp = 29 Then tA = tA - 1
    If (temp = 28 And Remain19 > 10) Then tA = tA - 1
   
' Find næste søndag

    tB = (tA - 19) Mod 7
    tC = (40 - FirstDig) Mod 4
    If tC = 3 Then tC = tC + 1
    If tC > 1 Then tC = tC + 1
   
    temp = y Mod 100
    tD = (temp + temp \ 4) Mod 7
   
    tE = ((20 - tB - tC - tD) Mod 7) + 1
    d = tA + tE
   
' Returnerer datoen

    If d > 31 Then
        d = d - 31
        m = 4
    Else
        m = 3
    End If
   
  Worksheets("b").Cells(87, 3) = d
  Worksheets("b").Cells(86, 3) = m
End Sub

' Sætter mærkedage ind i ny kalender

Sub MaerkeDage()

  If Worksheets("a").Cells(2, 7) > 1939 _
  Then Cells(20, 12) = "Dr. Margrethe"
  If Worksheets("a").Cells(2, 7) > 1936 _
  Then Worksheets("a").Cells(15, 18) = "Pr. Henrik"
  If Worksheets("a").Cells(2, 7) > 1968 _
  Then Worksheets("a").Cells(30, 12) = "Krp. Frederik"
    Worksheets("a").Cells(9, 18) = "Grundlovsdag"
    Worksheets("a").Cells(25, 9) = "Jævndøgn"
    Worksheets("a").Cells(28, 18) = "Sct. Hans"
    Worksheets("a").Cells(59, 12) = "Jævndøgn"
    Worksheets("a").Cells(47, 15) = "Morten Bisp"
    Worksheets("a").Cells(58, 18) = "Korteste dag"
    Worksheets("a").Cells(62, 18) = "Juledag"
    Worksheets("a").Cells(63, 18) = "2.Juledag"
    Worksheets("a").Cells(5, 3) = "Nytår"
    Worksheets("a").Cells(10, 3) = "Helig 3 konger"

   
    If Worksheets("a").Cells(25, 8) = Worksheets("b").Cells(95, 1) _
    Then
        Worksheets("a").Cells(25, 9) = "Påskedag"
        Worksheets("a").Cells(26, 9) = "2.Påskedag"
        Worksheets("a").Cells(22, 9) = "Sk.torsdag"
        Worksheets("a").Cells(23, 9) = "L.fredag"
        Worksheets("a").Cells(35, 3) = "Fastelavn"
        Worksheets("a").Cells(20, 12) = "Bededag"
        Worksheets("a").Cells(33, 12) = "Kr.himmelfart"
        Worksheets("a").Cells(13, 15) = "Pinsedag"
        Worksheets("a").Cells(14, 15) = "2.Pinsedag"
  End If

  If Worksheets("a").Cells(26, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(26, 9) = "Påskedag"
        Worksheets("a").Cells(27, 9) = "2.Påskedag"
        Worksheets("a").Cells(23, 9) = "Sk.torsdag"
        Worksheets("a").Cells(24, 9) = "L.fredag"
        Worksheets("a").Cells(5, 6) = "Fastelavn"
        Worksheets("a").Cells(21, 12) = "Bededag"
        Worksheets("a").Cells(34, 12) = "Kr.himmelfart"
        Worksheets("a").Cells(14, 15) = "Pinsedag"
        Worksheets("a").Cells(15, 15) = "2.Pinsedag"
    End If

    If Worksheets("a").Cells(27, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(27, 9) = "Påskedag"
        Worksheets("a").Cells(28, 9) = "2.Påskedag"
        Worksheets("a").Cells(24, 9) = "Sk.torsdag"
        Worksheets("a").Cells(25, 9) = "L.fredag"
        Worksheets("a").Cells(6, 6) = "Fastelavn"
        Worksheets("a").Cells(22, 12) = "Bededag"
        Worksheets("a").Cells(5, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(15, 15) = "Pinsedag"
        Worksheets("a").Cells(16, 15) = "2.Pinsedag"
    End If
 
    If Worksheets("a").Cells(28, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(28, 9) = "Påskedag"
        Worksheets("a").Cells(29, 9) = "2.Påskedag"
        Worksheets("a").Cells(25, 9) = "Sk.torsdag"
        Worksheets("a").Cells(26, 9) = "L.fredag"
        Worksheets("a").Cells(7, 6) = "Fastelavn"
        Worksheets("a").Cells(23, 12) = "Bededag"
        Worksheets("a").Cells(6, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(16, 15) = "Pinsedag"
        Worksheets("a").Cells(17, 15) = "2.Pinsedag"
  End If
 
      If Worksheets("a").Cells(29, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(29, 9) = "Påskedag"
        Worksheets("a").Cells(30, 9) = "2.Påskedag"
        Worksheets("a").Cells(26, 9) = "Sk.torsdag"
        Worksheets("a").Cells(27, 9) = "L.fredag"
        Worksheets("a").Cells(8, 6) = "Fastelavn"
        Worksheets("a").Cells(24, 12) = "Bededag"
        Worksheets("a").Cells(7, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(17, 15) = "Pinsedag"
        Worksheets("a").Cells(18, 15) = "2.Pinsedag"
  End If

    If Worksheets("a").Cells(30, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(30, 9) = "Påskedag"
        Worksheets("a").Cells(31, 9) = "2.Påskedag"
        Worksheets("a").Cells(27, 9) = "Sk.torsdag"
        Worksheets("a").Cells(28, 9) = "L.fredag"
        Worksheets("a").Cells(9, 6) = "Fastelavn"
        Worksheets("a").Cells(25, 12) = "Bededag"
        Worksheets("a").Cells(8, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(18, 15) = "Pinsedag"
        Worksheets("a").Cells(19, 15) = "2.Pinsedag"
End If

    If Worksheets("a").Cells(31, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(31, 9) = "Påskedag"
        Worksheets("a").Cells(32, 9) = "2.Påskedag"
        Worksheets("a").Cells(28, 9) = "Sk.torsdag"
        Worksheets("a").Cells(29, 9) = "L.fredag"
        Worksheets("a").Cells(10, 6) = "Fastelavn"
        Worksheets("a").Cells(26, 12) = "Bededag"
        Worksheets("a").Cells(9, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(19, 15) = "Pinsedag"
        Worksheets("a").Cells(20, 15) = "2.Pinsedag"
  End If

    If Worksheets("a").Cells(32, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(32, 9) = "Påskedag"
        Worksheets("a").Cells(33, 9) = "2.Påskedag"
        Worksheets("a").Cells(29, 9) = "Sk.torsdag"
        Worksheets("a").Cells(30, 9) = "L.fredag"
        Worksheets("a").Cells(11, 6) = "Fastelavn"
        Worksheets("a").Cells(27, 12) = "Bededag"
        Worksheets("a").Cells(10, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(20, 15) = "Pinsedag"
        Worksheets("a").Cells(21, 15) = "2.Pinsedag"
End If
 
    If Worksheets("a").Cells(33, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(33, 9) = "Påskedag"
        Worksheets("a").Cells(34, 9) = "2.Påskedag"
        Worksheets("a").Cells(30, 9) = "Sk.torsdag"
        Worksheets("a").Cells(31, 9) = "L.fredag"
        Worksheets("a").Cells(12, 6) = "Fastelavn"
        Worksheets("a").Cells(28, 12) = "Bededag"
        Worksheets("a").Cells(11, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(21, 15) = "Pinsedag"
        Worksheets("a").Cells(22, 15) = "2.Pinsedag"
End If
 
    If Worksheets("a").Cells(34, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(34, 9) = "Påskedag"
        Worksheets("a").Cells(35, 9) = "2.Påskedag"
        Worksheets("a").Cells(31, 9) = "Sk.torsdag"
        Worksheets("a").Cells(32, 9) = "L.fredag"
        Worksheets("a").Cells(13, 6) = "Fastelavn"
        Worksheets("a").Cells(29, 12) = "Bededag"
        Worksheets("a").Cells(12, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(22, 15) = "Pinsedag"
        Worksheets("a").Cells(23, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(35, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(35, 9) = "Påskedag"
        Worksheets("a").Cells(5, 12) = "2.Påskedag"
        Worksheets("a").Cells(32, 9) = "Sk.torsdag"
        Worksheets("a").Cells(33, 9) = "L.fredag"
        Worksheets("a").Cells(14, 6) = "Fastelavn"
        Worksheets("a").Cells(30, 12) = "Bededag"
        Worksheets("a").Cells(13, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(23, 15) = "Pinsedag"
        Worksheets("a").Cells(24, 15) = "2.Pinsedag"
End If
 
    If Worksheets("a").Cells(5, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(5, 12) = "Påskedag"
        Worksheets("a").Cells(6, 12) = "2.Påskedag"
        Worksheets("a").Cells(33, 9) = "Sk.torsdag"
        Worksheets("a").Cells(34, 9) = "L.fredag"
        Worksheets("a").Cells(15, 6) = "Fastelavn"
        Worksheets("a").Cells(31, 12) = "Bededag"
        Worksheets("a").Cells(14, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(24, 15) = "Pinsedag"
        Worksheets("a").Cells(25, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(6, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(6, 12) = "Påskedag"
        Worksheets("a").Cells(7, 12) = "2.Påskedag"
        Worksheets("a").Cells(34, 9) = "Sk.torsdag"
        Worksheets("a").Cells(35, 9) = "L.fredag"
        Worksheets("a").Cells(16, 6) = "Fastelavn"
        Worksheets("a").Cells(32, 12) = "Bededag"
        Worksheets("a").Cells(15, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(25, 15) = "Pinsedag"
        Worksheets("a").Cells(26, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(7, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(7, 12) = "Påskedag"
        Worksheets("a").Cells(8, 12) = "2.Påskedag"
        Worksheets("a").Cells(35, 9) = "Sk.torsdag"
        Worksheets("a").Cells(5, 12) = "L.fredag"
        Worksheets("a").Cells(17, 6) = "Fastelavn"
        Worksheets("a").Cells(33, 12) = "Bededag"
        Worksheets("a").Cells(16, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(26, 15) = "Pinsedag"
        Worksheets("a").Cells(27, 15) = "2.Pinsedag"
  End If
   
    If Worksheets("a").Cells(8, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(8, 12) = "Påskedag"
        Worksheets("a").Cells(9, 12) = "2.Påskedag"
        Worksheets("a").Cells(5, 12) = "Sk.torsdag"
        Worksheets("a").Cells(6, 12) = "L.fredag"
        Worksheets("a").Cells(18, 6) = "Fastelavn"
        Worksheets("a").Cells(34, 12) = "Bededag"
        Worksheets("a").Cells(17, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(27, 15) = "Pinsedag"
        Worksheets("a").Cells(28, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(9, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(9, 12) = "Påskedag"
        Worksheets("a").Cells(10, 12) = "2.Påskedag"
        Worksheets("a").Cells(6, 12) = "Sk.torsdag"
        Worksheets("a").Cells(7, 12) = "L.fredag"
        Worksheets("a").Cells(19, 6) = "Fastelavn"
        Worksheets("a").Cells(5, 15) = "Bededag"
        Worksheets("a").Cells(18, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(28, 15) = "Pinsedag"
        Worksheets("a").Cells(29, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(10, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(10, 12) = "Påskedag"
        Worksheets("a").Cells(11, 12) = "2.Påskedag"
        Worksheets("a").Cells(7, 12) = "Sk.torsdag"
        Worksheets("a").Cells(8, 12) = "L.fredag"
        Worksheets("a").Cells(20, 6) = "Fastelavn"
        Worksheets("a").Cells(6, 15) = "Bededag"
        Worksheets("a").Cells(19, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(29, 15) = "Pinsedag"
        Worksheets("a").Cells(30, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(11, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(11, 12) = "Påskedag"
        Worksheets("a").Cells(12, 12) = "2.Påskedag"
        Worksheets("a").Cells(8, 12) = "Sk.torsdag"
        Worksheets("a").Cells(9, 12) = "L.fredag"
        Worksheets("a").Cells(21, 6) = "Fastelavn"
        Worksheets("a").Cells(7, 15) = "Bededag"
        Worksheets("a").Cells(20, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(30, 15) = "Pinsedag"
        Worksheets("a").Cells(31, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(12, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(12, 12) = "Påskedag"
        Worksheets("a").Cells(13, 12) = "2.Påskedag"
        Worksheets("a").Cells(9, 12) = "Sk.torsdag"
        Worksheets("a").Cells(10, 12) = "L.fredag"
        Worksheets("a").Cells(22, 6) = "Fastelavn"
        Worksheets("a").Cells(8, 15) = "Bededag"
        Worksheets("a").Cells(21, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(31, 15) = "Pinsedag"
        Worksheets("a").Cells(32, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(13, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(13, 12) = "Påskedag"
        Worksheets("a").Cells(14, 12) = "2.Påskedag"
        Worksheets("a").Cells(10, 12) = "Sk.torsdag"
        Worksheets("a").Cells(11, 12) = "L.fredag"
        Worksheets("a").Cells(23, 6) = "Fastelavn"
        Worksheets("a").Cells(9, 15) = "Bededag"
        Worksheets("a").Cells(22, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(32, 15) = "Pinsedag"
        Worksheets("a").Cells(33, 15) = "2.Pinsedag"
 
  End If
    If Worksheets("a").Cells(14, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(14, 12) = "Påskedag"
        Worksheets("a").Cells(15, 12) = "2.Påskedag"
        Worksheets("a").Cells(11, 12) = "Sk.torsdag"
        Worksheets("a").Cells(12, 12) = "L.fredag"
        Worksheets("a").Cells(24, 6) = "Fastelavn"
        Worksheets("a").Cells(10, 15) = "Bededag"
        Worksheets("a").Cells(23, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(33, 15) = "Pinsedag"
        Worksheets("a").Cells(34, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(15, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(15, 12) = "Påskedag"
        Worksheets("a").Cells(16, 12) = "2.Påskedag"
        Worksheets("a").Cells(12, 12) = "Sk.torsdag"
        Worksheets("a").Cells(13, 12) = "L.fredag"
        Worksheets("a").Cells(25, 6) = "Fastelavn"
        Worksheets("a").Cells(11, 15) = "Bededag"
        Worksheets("a").Cells(24, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(34, 15) = "Pinsedag"
        Worksheets("a").Cells(35, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(16, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(16, 12) = "Påskedag"
        Worksheets("a").Cells(17, 12) = "2.Påskedag"
        Worksheets("a").Cells(13, 12) = "Sk.torsdag"
        Worksheets("a").Cells(14, 12) = "L.fredag"
        Worksheets("a").Cells(26, 6) = "Fastelavn"
        Worksheets("a").Cells(12, 15) = "Bededag"
        Worksheets("a").Cells(25, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(35, 15) = "Pinsedag"
        Worksheets("a").Cells(5, 18) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(17, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(17, 12) = "Påskedag"
        Worksheets("a").Cells(18, 12) = "2.Påskedag"
        Worksheets("a").Cells(14, 12) = "Sk.torsdag"
        Worksheets("a").Cells(15, 12) = "L.fredag"
        Worksheets("a").Cells(27, 6) = "Fastelavn"
        Worksheets("a").Cells(13, 15) = "Bededag"
        Worksheets("a").Cells(26, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(5, 18) = "Pinsedag"
        Worksheets("a").Cells(6, 18) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(18, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(18, 12) = "Påskedag"
        Worksheets("a").Cells(19, 12) = "2.Påskedag"
        Worksheets("a").Cells(15, 12) = "Sk.torsdag"
        Worksheets("a").Cells(16, 12) = "L.fredag"
        Worksheets("a").Cells(28, 6) = "Fastelavn"
        Worksheets("a").Cells(14, 15) = "Bededag"
        Worksheets("a").Cells(27, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(6, 18) = "Pinsedag"
        Worksheets("a").Cells(7, 18) = "2.Pinsedag"
  End If
   
    If Worksheets("a").Cells(19, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(19, 12) = "Påskedag"
        Worksheets("a").Cells(20, 12) = "2.Påskedag"
        Worksheets("a").Cells(16, 12) = "Sk.torsdag"
        Worksheets("a").Cells(17, 12) = "L.fredag"
        Worksheets("a").Cells(29, 6) = "Fastelavn"
        Worksheets("a").Cells(15, 15) = "Bededag"
        Worksheets("a").Cells(28, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(7, 18) = "Pinsedag"
        Worksheets("a").Cells(8, 18) = "2.Pinsedag"
  End If
   
    If Worksheets("a").Cells(20, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(20, 12) = "Påskedag"
        Worksheets("a").Cells(21, 12) = "2.Påskedag"
        Worksheets("a").Cells(17, 12) = "Sk.torsdag"
        Worksheets("a").Cells(18, 12) = "L.fredag"
        Worksheets("a").Cells(30, 6) = "Fastelavn"
        Worksheets("a").Cells(16, 15) = "Bededag"
        Worksheets("a").Cells(29, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(8, 18) = "Pinsedag"
        Worksheets("a").Cells(9, 18) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(21, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(21, 12) = "Påskedag"
        Worksheets("a").Cells(22, 12) = "2.Påskedag"
        Worksheets("a").Cells(18, 12) = "Sk.torsdag"
        Worksheets("a").Cells(19, 12) = "L.fredag"
        Worksheets("a").Cells(31, 6) = "Fastelavn"
        Worksheets("a").Cells(17, 15) = "Bededag"
        Worksheets("a").Cells(30, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(9, 18) = "Pinsedag"
        Worksheets("a").Cells(10, 18) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(22, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(22, 12) = "Påskedag"
        Worksheets("a").Cells(23, 12) = "2.Påskedag"
        Worksheets("a").Cells(19, 12) = "Sk.torsdag"
        Worksheets("a").Cells(20, 12) = "L.fredag"
        Worksheets("a").Cells(32, 6) = "Fastelavn"
        Worksheets("a").Cells(18, 15) = "Bededag"
        Worksheets("a").Cells(31, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(10, 18) = "Pinsedag"
        Worksheets("a").Cells(11, 18) = "2.Pinsedag"
    End If
   
  If Worksheets("a").Cells(23, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(23, 12) = "Påskedag"
        Worksheets("a").Cells(24, 12) = "2.Påskedag"
        Worksheets("a").Cells(20, 12) = "Sk.torsdag"
        Worksheets("a").Cells(21, 12) = "L.fredag"
        Worksheets("a").Cells(19, 15) = "Bededag"
        Worksheets("a").Cells(32, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(11, 18) = "Pinsedag"
        Worksheets("a").Cells(12, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(24, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(24, 12) = "Påskedag"
        Worksheets("a").Cells(25, 12) = "2.Påskedag"
        Worksheets("a").Cells(21, 12) = "Sk.torsdag"
        Worksheets("a").Cells(22, 12) = "L.fredag"
        Worksheets("a").Cells(20, 15) = "Bededag"
        Worksheets("a").Cells(33, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(12, 18) = "Pinsedag"
        Worksheets("a").Cells(13, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(25, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(25, 12) = "Påskedag"
        Worksheets("a").Cells(26, 12) = "2.Påskedag"
        Worksheets("a").Cells(22, 12) = "Sk.torsdag"
        Worksheets("a").Cells(23, 12) = "L.fredag"
        Worksheets("a").Cells(21, 15) = "Bededag"
        Worksheets("a").Cells(34, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(13, 18) = "Pinsedag"
        Worksheets("a").Cells(14, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(26, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(26, 12) = "Påskedag"
        Worksheets("a").Cells(27, 12) = "2.Påskedag"
        Worksheets("a").Cells(23, 12) = "Sk.torsdag"
        Worksheets("a").Cells(24, 12) = "L.fredag"
        Worksheets("a").Cells(22, 15) = "Bededag"
        Worksheets("a").Cells(35, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(14, 18) = "Pinsedag"
        Worksheets("a").Cells(15, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(27, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(27, 12) = "Påskedag"
        Worksheets("a").Cells(28, 12) = "2.Påskedag"
        Worksheets("a").Cells(24, 12) = "Sk.torsdag"
        Worksheets("a").Cells(25, 12) = "L.fredag"
        Worksheets("a").Cells(23, 15) = "Bededag"
        Worksheets("a").Cells(5, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(15, 18) = "Pinsedag"
        Worksheets("a").Cells(16, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(28, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(28, 12) = "Påskedag"
        Worksheets("a").Cells(29, 12) = "2.Påskedag"
        Worksheets("a").Cells(25, 12) = "Sk.torsdag"
        Worksheets("a").Cells(26, 12) = "L.fredag"
        Worksheets("a").Cells(24, 15) = "Bededag"
        Worksheets("a").Cells(6, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(16, 18) = "Pinsedag"
        Worksheets("a").Cells(17, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(29, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(29, 12) = "Påskedag"
        Worksheets("a").Cells(30, 12) = "2.Påskedag"
        Worksheets("a").Cells(26, 12) = "Sk.torsdag"
        Worksheets("a").Cells(27, 12) = "L.fredag"
        Worksheets("a").Cells(25, 15) = "Bededag"
        Worksheets("a").Cells(7, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(17, 18) = "Pinsedag"
        Worksheets("a").Cells(18, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(30, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(30, 12) = "Påskedag"
        Worksheets("a").Cells(31, 12) = "2.Påskedag"
        Worksheets("a").Cells(27, 12) = "Sk.torsdag"
        Worksheets("a").Cells(28, 12) = "L.fredag"
        Worksheets("a").Cells(26, 15) = "Bededag"
        Worksheets("a").Cells(8, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(18, 18) = "Pinsedag"
        Worksheets("a").Cells(19, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(31, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(31, 12) = "Påskedag"
        Worksheets("a").Cells(32, 12) = "2.Påskedag"
        Worksheets("a").Cells(28, 12) = "Sk.torsdag"
        Worksheets("a").Cells(29, 12) = "L.fredag"
        Worksheets("a").Cells(27, 15) = "Bededag"
        Worksheets("a").Cells(9, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(19, 18) = "Pinsedag"
        Worksheets("a").Cells(20, 18) = "2.Pinsedag"
  End If
 
If Worksheets("a").Cells(5, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(5, 9) = "Fastelavn"
If Worksheets("a").Cells(6, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(6, 9) = "Fastelavn"
If Worksheets("a").Cells(7, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(7, 9) = "Fastelavn"
If Worksheets("a").Cells(8, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(8, 9) = "Fastelavn"
If Worksheets("a").Cells(9, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(9, 9) = "Fastelavn"
If Worksheets("a").Cells(10, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(10, 9) = "Fastelavn"
If Worksheets("a").Cells(11, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(11, 9) = "Fastelavn"
If Worksheets("a").Cells(12, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(12, 9) = "Fastelavn"


End Sub

Sub Slet()
' Slet gamle mærkedage og ugenr.

    Range("C5:C35").Select
    Selection.ClearContents
    Range("F5:F35").Select
    Selection.ClearContents
    Range("I5:I35").Select
    Selection.ClearContents
    Range("L5:L35").Select
    Selection.ClearContents
    Range("O5:O35").Select
    Selection.ClearContents
    Range("R5:R35").Select
    Selection.ClearContents
    Range("C38:C68").Select
    Selection.ClearContents
    Range("F38:F68").Select
    Selection.ClearContents
    Range("I38:I68").Select
    Selection.ClearContents
    Range("L38:L68").Select
    Selection.ClearContents
    Range("O38:O68").Select
    Selection.ClearContents
    Range("R38:R68").Select
    Selection.ClearContents

End Sub



men jeg vil gerne have flere koloner ind i den, da jeg skal køre betinget formatering til at vise arbejds hold med farver.
Det er næsten den samme du kommer med, og den virker ok, men som sagt. så har jeg lavet en også hvor jeg har rykket f.eks cellen hvor der står "påskedag" længre "ud" tilsvarende de ekstra koloner jeg gerne vil have. men ugedag markro kan jeg ikke få til at køre ordentligt

Sub SaetUgeNr()
Range("C5").Select
aarstal = Worksheets("a").Cells(2, 7)
ugedag = 1
CL1 = 1
CL2 = 3
RK = 5
RK2 = 5
For NytHalvaar = 1 To 2
    For nymaaned = 1 To 6
        For ugedag = 1 To 31
        If NytHalvaar = 1 Then
        UgeNr = Format(DateSerial(aarstal, nymaaned, ugedag), "WW", vbMonday, vbFirstFourDays)
        If Weekday(DateSerial(aarstal, nymaaned, ugedag)) = 2 Then Cells(RK, CL1) = "Ma"
        Else
        UgeNr = Format(DateSerial(aarstal, nymaaned + 6, ugedag), "WW", vbMonday, vbFirstFourDays)
        If Weekday(DateSerial(aarstal, nymaaned + 6, ugedag)) = 2 Then Cells(RK, CL1) = "Ma"
        End If
          If Cells(RK, CL1) = "Ma" Then Cells(RK, CL2) = UgeNr
            RK = RK + 1
        Next ugedag
      RK = RK2
      CL1 = CL1 + 3
      CL2 = CL2 + 3
    Next nymaaned
  RK = 38
  RK2 = 38
  CL1 = 1
  CL2 = 3
Next NytHalvaar

End Sub

Det fik jeg ikke til, jeg lavede et nyt sheet, og fik den til at kopier det jeg ville have over i det, på de pladser jeg ville. Laver lige et link, hvis du vil se

http://svb-server.dk:8080/desknow/home.do?Action=Login
Den hedder CreKalender.rar

Sorry her er det
http://svb-server.dk:8080/desknow/directfiles/admin/logo/
Stadig CrewKalender.rar

fin kalender, den ligner min, jeg ville godt se koden, hvis det ikke er ?? ;-))

Jeg vil gerne uploade koden her, gør det senere i dag, når jeg kommer til min bærbar

Her er koden, jeg husker ikke hvor jeg har den fra, men mon ikke det er et link herinde fra? :)
Sub Indtast()

Dim Message, Title, Default, aarstal
Message = "Indtast årstal for det ønskede kalenderår Det tager lidt tid med at opdatere årstalet"  ' Prompt.
Title = "Kalenderprogram |Se mere på http://stuff.6pm.dk |"
Default = "2005"  ' Standardværdi.
aarstal = InputBox(Message, Title, Default)

Worksheets("a").Cells(2, 7) = aarstal
Cells(3, 9) = ""
Cells(3, 8) = "Det tager lidt tid med at opdatere"
If aarstal = "" Then Cells(2, 7) = 2004
If aarstal <= 1899 Then Cells(3, 9) = "OBS! kalenderen er ikke opdateret"
If aarstal < 400 Then Cells(2, 7) = 2004
Call PaaskeDag
Call Slet
Call SaetUgeNr
Call MaerkeDage
Cells(3, 8) = " "
End Sub

' Beregning af ugenr. ud fra årstal
' Sletning af gamle mærkedage

Sub SaetUgeNr()

Range("C5").Select

UgeDag = 1
UgeNr = 1
CL1 = 1
CL2 = 3
RK = 5
RK2 = 5

For NytHalvaar = 1 To 2
    For NyMaaned = 1 To 6
        For UgeDag = 1 To 31
          If Cells(RK, CL1) = "Ma" _
            Then Cells(RK, CL2) = UgeNr _
            'Else: Cells(RK, CL2) = " "
          If Cells(RK, CL1) = "Ma" _
            Then UgeNr = UgeNr + 1
            RK = RK + 1
        Next UgeDag
      RK = RK2
      CL1 = CL1 + 3
      CL2 = CL2 + 3
    Next NyMaaned
  RK = 38
  RK2 = 38
  CL1 = 1
  CL2 = 3
Next NytHalvaar

End Sub

' Beregner påskedag ud fra fuldmåne dato

Sub PaaskeDag()
y = Worksheets("a").Cells(2, 7)

Dim FirstDig, Remain19, temp
Dim tA, tB, tC, tD, tE

FirstDig = y \ 100
Remain19 = y Mod 19

'Fuldmåne beregning
    temp = (FirstDig - 15) \ 2 + 202 - 11 * Remain19
    If FirstDig > 26 Then temp = temp - 1
    If FirstDig > 38 Then temp = temp - 1
   
    If ((FirstDig = 21) Or (FirstDig = 24) Or (FirstDig = 25) _
        Or (FirstDig = 33) Or (FirstDig = 36) Or (FirstDig = 37)) _
        Then temp = temp - 1
       
    temp = temp Mod 30
   
    tA = temp + 21
    If temp = 29 Then tA = tA - 1
    If (temp = 28 And Remain19 > 10) Then tA = tA - 1
   
' Find næste søndag

    tB = (tA - 19) Mod 7
    tC = (40 - FirstDig) Mod 4
    If tC = 3 Then tC = tC + 1
    If tC > 1 Then tC = tC + 1
   
    temp = y Mod 100
    tD = (temp + temp \ 4) Mod 7
   
    tE = ((20 - tB - tC - tD) Mod 7) + 1
    d = tA + tE
   
' Returnerer datoen

    If d > 31 Then
        d = d - 31
        m = 4
    Else
        m = 3
    End If
   
  Worksheets("b").Cells(87, 3) = d
  Worksheets("b").Cells(86, 3) = m
End Sub

' Sætter mærkedage ind i ny kalender

Sub MaerkeDage()

  If Worksheets("a").Cells(2, 7) > 1939 _
  Then Cells(20, 12) = ""
  If Worksheets("a").Cells(2, 7) > 1936 _
  Then Worksheets("a").Cells(15, 18) = ""
  If Worksheets("a").Cells(2, 7) > 1968 _
  Then Worksheets("a").Cells(30, 12) = ""
    Worksheets("a").Cells(9, 18) = ""
    Worksheets("a").Cells(25, 9) = ""
    Worksheets("a").Cells(28, 18) = ""
    Worksheets("a").Cells(59, 12) = ""
    Worksheets("a").Cells(47, 15) = ""
    Worksheets("a").Cells(58, 18) = ""
    Worksheets("a").Cells(62, 18) = ""
    Worksheets("a").Cells(63, 18) = ""
    Worksheets("a").Cells(5, 3) = ""
    Worksheets("a").Cells(10, 3) = ""

   
    If Worksheets("a").Cells(25, 8) = Worksheets("b").Cells(95, 1) _
    Then
        Worksheets("a").Cells(25, 9) = "Påskedag"
        Worksheets("a").Cells(26, 9) = "2.Påskedag"
        Worksheets("a").Cells(22, 9) = "Sk.torsdag"
        Worksheets("a").Cells(23, 9) = "L.fredag"
        Worksheets("a").Cells(35, 3) = "Fastelavn"
        Worksheets("a").Cells(20, 12) = "Bededag"
        Worksheets("a").Cells(33, 12) = "Kr.himmelfart"
        Worksheets("a").Cells(13, 15) = "Pinsedag"
        Worksheets("a").Cells(14, 15) = "2.Pinsedag"
  End If

  If Worksheets("a").Cells(26, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(26, 9) = "Påskedag"
        Worksheets("a").Cells(27, 9) = "2.Påskedag"
        Worksheets("a").Cells(23, 9) = "Sk.torsdag"
        Worksheets("a").Cells(24, 9) = "L.fredag"
        Worksheets("a").Cells(5, 6) = "Fastelavn"
        Worksheets("a").Cells(21, 12) = "Bededag"
        Worksheets("a").Cells(34, 12) = "Kr.himmelfart"
        Worksheets("a").Cells(14, 15) = "Pinsedag"
        Worksheets("a").Cells(15, 15) = "2.Pinsedag"
    End If

    If Worksheets("a").Cells(27, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(27, 9) = "Påskedag"
        Worksheets("a").Cells(28, 9) = "2.Påskedag"
        Worksheets("a").Cells(24, 9) = "Sk.torsdag"
        Worksheets("a").Cells(25, 9) = "L.fredag"
        Worksheets("a").Cells(6, 6) = "Fastelavn"
        Worksheets("a").Cells(22, 12) = "Bededag"
        Worksheets("a").Cells(5, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(15, 15) = "Pinsedag"
        Worksheets("a").Cells(16, 15) = "2.Pinsedag"
    End If
 
    If Worksheets("a").Cells(28, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(28, 9) = "Påskedag"
        Worksheets("a").Cells(29, 9) = "2.Påskedag"
        Worksheets("a").Cells(25, 9) = "Sk.torsdag"
        Worksheets("a").Cells(26, 9) = "L.fredag"
        Worksheets("a").Cells(7, 6) = "Fastelavn"
        Worksheets("a").Cells(23, 12) = "Bededag"
        Worksheets("a").Cells(6, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(16, 15) = "Pinsedag"
        Worksheets("a").Cells(17, 15) = "2.Pinsedag"
  End If
 
      If Worksheets("a").Cells(29, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(29, 9) = "Påskedag"
        Worksheets("a").Cells(30, 9) = "2.Påskedag"
        Worksheets("a").Cells(26, 9) = "Sk.torsdag"
        Worksheets("a").Cells(27, 9) = "L.fredag"
        Worksheets("a").Cells(8, 6) = "Fastelavn"
        Worksheets("a").Cells(24, 12) = "Bededag"
        Worksheets("a").Cells(7, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(17, 15) = "Pinsedag"
        Worksheets("a").Cells(18, 15) = "2.Pinsedag"
  End If

    If Worksheets("a").Cells(30, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(30, 9) = "Påskedag"
        Worksheets("a").Cells(31, 9) = "2.Påskedag"
        Worksheets("a").Cells(27, 9) = "Sk.torsdag"
        Worksheets("a").Cells(28, 9) = "L.fredag"
        Worksheets("a").Cells(9, 6) = "Fastelavn"
        Worksheets("a").Cells(25, 12) = "Bededag"
        Worksheets("a").Cells(8, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(18, 15) = "Pinsedag"
        Worksheets("a").Cells(19, 15) = "2.Pinsedag"
End If

    If Worksheets("a").Cells(31, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(31, 9) = "Påskedag"
        Worksheets("a").Cells(32, 9) = "2.Påskedag"
        Worksheets("a").Cells(28, 9) = "Sk.torsdag"
        Worksheets("a").Cells(29, 9) = "L.fredag"
        Worksheets("a").Cells(10, 6) = "Fastelavn"
        Worksheets("a").Cells(26, 12) = "Bededag"
        Worksheets("a").Cells(9, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(19, 15) = "Pinsedag"
        Worksheets("a").Cells(20, 15) = "2.Pinsedag"
  End If

    If Worksheets("a").Cells(32, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(32, 9) = "Påskedag"
        Worksheets("a").Cells(33, 9) = "2.Påskedag"
        Worksheets("a").Cells(29, 9) = "Sk.torsdag"
        Worksheets("a").Cells(30, 9) = "L.fredag"
        Worksheets("a").Cells(11, 6) = "Fastelavn"
        Worksheets("a").Cells(27, 12) = "Bededag"
        Worksheets("a").Cells(10, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(20, 15) = "Pinsedag"
        Worksheets("a").Cells(21, 15) = "2.Pinsedag"
End If
 
    If Worksheets("a").Cells(33, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(33, 9) = "Påskedag"
        Worksheets("a").Cells(34, 9) = "2.Påskedag"
        Worksheets("a").Cells(30, 9) = "Sk.torsdag"
        Worksheets("a").Cells(31, 9) = "L.fredag"
        Worksheets("a").Cells(12, 6) = "Fastelavn"
        Worksheets("a").Cells(28, 12) = "Bededag"
        Worksheets("a").Cells(11, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(21, 15) = "Pinsedag"
        Worksheets("a").Cells(22, 15) = "2.Pinsedag"
End If
 
    If Worksheets("a").Cells(34, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(34, 9) = "Påskedag"
        Worksheets("a").Cells(35, 9) = "2.Påskedag"
        Worksheets("a").Cells(31, 9) = "Sk.torsdag"
        Worksheets("a").Cells(32, 9) = "L.fredag"
        Worksheets("a").Cells(13, 6) = "Fastelavn"
        Worksheets("a").Cells(29, 12) = "Bededag"
        Worksheets("a").Cells(12, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(22, 15) = "Pinsedag"
        Worksheets("a").Cells(23, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(35, 8) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(35, 9) = "Påskedag"
        Worksheets("a").Cells(5, 12) = "2.Påskedag"
        Worksheets("a").Cells(32, 9) = "Sk.torsdag"
        Worksheets("a").Cells(33, 9) = "L.fredag"
        Worksheets("a").Cells(14, 6) = "Fastelavn"
        Worksheets("a").Cells(30, 12) = "Bededag"
        Worksheets("a").Cells(13, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(23, 15) = "Pinsedag"
        Worksheets("a").Cells(24, 15) = "2.Pinsedag"
End If
 
    If Worksheets("a").Cells(5, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(5, 12) = "Påskedag"
        Worksheets("a").Cells(6, 12) = "2.Påskedag"
        Worksheets("a").Cells(33, 9) = "Sk.torsdag"
        Worksheets("a").Cells(34, 9) = "L.fredag"
        Worksheets("a").Cells(15, 6) = "Fastelavn"
        Worksheets("a").Cells(31, 12) = "Bededag"
        Worksheets("a").Cells(14, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(24, 15) = "Pinsedag"
        Worksheets("a").Cells(25, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(6, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(6, 12) = "Påskedag"
        Worksheets("a").Cells(7, 12) = "2.Påskedag"
        Worksheets("a").Cells(34, 9) = "Sk.torsdag"
        Worksheets("a").Cells(35, 9) = "L.fredag"
        Worksheets("a").Cells(16, 6) = "Fastelavn"
        Worksheets("a").Cells(32, 12) = "Bededag"
        Worksheets("a").Cells(15, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(25, 15) = "Pinsedag"
        Worksheets("a").Cells(26, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(7, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(7, 12) = "Påskedag"
        Worksheets("a").Cells(8, 12) = "2.Påskedag"
        Worksheets("a").Cells(35, 9) = "Sk.torsdag"
        Worksheets("a").Cells(5, 12) = "L.fredag"
        Worksheets("a").Cells(17, 6) = "Fastelavn"
        Worksheets("a").Cells(33, 12) = "Bededag"
        Worksheets("a").Cells(16, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(26, 15) = "Pinsedag"
        Worksheets("a").Cells(27, 15) = "2.Pinsedag"
  End If
   
    If Worksheets("a").Cells(8, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(8, 12) = "Påskedag"
        Worksheets("a").Cells(9, 12) = "2.Påskedag"
        Worksheets("a").Cells(5, 12) = "Sk.torsdag"
        Worksheets("a").Cells(6, 12) = "L.fredag"
        Worksheets("a").Cells(18, 6) = "Fastelavn"
        Worksheets("a").Cells(34, 12) = "Bededag"
        Worksheets("a").Cells(17, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(27, 15) = "Pinsedag"
        Worksheets("a").Cells(28, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(9, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(9, 12) = "Påskedag"
        Worksheets("a").Cells(10, 12) = "2.Påskedag"
        Worksheets("a").Cells(6, 12) = "Sk.torsdag"
        Worksheets("a").Cells(7, 12) = "L.fredag"
        Worksheets("a").Cells(19, 6) = "Fastelavn"
        Worksheets("a").Cells(5, 15) = "Bededag"
        Worksheets("a").Cells(18, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(28, 15) = "Pinsedag"
        Worksheets("a").Cells(29, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(10, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(10, 12) = "Påskedag"
        Worksheets("a").Cells(11, 12) = "2.Påskedag"
        Worksheets("a").Cells(7, 12) = "Sk.torsdag"
        Worksheets("a").Cells(8, 12) = "L.fredag"
        Worksheets("a").Cells(20, 6) = "Fastelavn"
        Worksheets("a").Cells(6, 15) = "Bededag"
        Worksheets("a").Cells(19, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(29, 15) = "Pinsedag"
        Worksheets("a").Cells(30, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(11, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(11, 12) = "Påskedag"
        Worksheets("a").Cells(12, 12) = "2.Påskedag"
        Worksheets("a").Cells(8, 12) = "Sk.torsdag"
        Worksheets("a").Cells(9, 12) = "L.fredag"
        Worksheets("a").Cells(21, 6) = "Fastelavn"
        Worksheets("a").Cells(7, 15) = "Bededag"
        Worksheets("a").Cells(20, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(30, 15) = "Pinsedag"
        Worksheets("a").Cells(31, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(12, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(12, 12) = "Påskedag"
        Worksheets("a").Cells(13, 12) = "2.Påskedag"
        Worksheets("a").Cells(9, 12) = "Sk.torsdag"
        Worksheets("a").Cells(10, 12) = "L.fredag"
        Worksheets("a").Cells(22, 6) = "Fastelavn"
        Worksheets("a").Cells(8, 15) = "Bededag"
        Worksheets("a").Cells(21, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(31, 15) = "Pinsedag"
        Worksheets("a").Cells(32, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(13, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(13, 12) = "Påskedag"
        Worksheets("a").Cells(14, 12) = "2.Påskedag"
        Worksheets("a").Cells(10, 12) = "Sk.torsdag"
        Worksheets("a").Cells(11, 12) = "L.fredag"
        Worksheets("a").Cells(23, 6) = "Fastelavn"
        Worksheets("a").Cells(9, 15) = "Bededag"
        Worksheets("a").Cells(22, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(32, 15) = "Pinsedag"
        Worksheets("a").Cells(33, 15) = "2.Pinsedag"
 
  End If
    If Worksheets("a").Cells(14, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(14, 12) = "Påskedag"
        Worksheets("a").Cells(15, 12) = "2.Påskedag"
        Worksheets("a").Cells(11, 12) = "Sk.torsdag"
        Worksheets("a").Cells(12, 12) = "L.fredag"
        Worksheets("a").Cells(24, 6) = "Fastelavn"
        Worksheets("a").Cells(10, 15) = "Bededag"
        Worksheets("a").Cells(23, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(33, 15) = "Pinsedag"
        Worksheets("a").Cells(34, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(15, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(15, 12) = "Påskedag"
        Worksheets("a").Cells(16, 12) = "2.Påskedag"
        Worksheets("a").Cells(12, 12) = "Sk.torsdag"
        Worksheets("a").Cells(13, 12) = "L.fredag"
        Worksheets("a").Cells(25, 6) = "Fastelavn"
        Worksheets("a").Cells(11, 15) = "Bededag"
        Worksheets("a").Cells(24, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(34, 15) = "Pinsedag"
        Worksheets("a").Cells(35, 15) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(16, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(16, 12) = "Påskedag"
        Worksheets("a").Cells(17, 12) = "2.Påskedag"
        Worksheets("a").Cells(13, 12) = "Sk.torsdag"
        Worksheets("a").Cells(14, 12) = "L.fredag"
        Worksheets("a").Cells(26, 6) = "Fastelavn"
        Worksheets("a").Cells(12, 15) = "Bededag"
        Worksheets("a").Cells(25, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(35, 15) = "Pinsedag"
        Worksheets("a").Cells(5, 18) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(17, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(17, 12) = "Påskedag"
        Worksheets("a").Cells(18, 12) = "2.Påskedag"
        Worksheets("a").Cells(14, 12) = "Sk.torsdag"
        Worksheets("a").Cells(15, 12) = "L.fredag"
        Worksheets("a").Cells(27, 6) = "Fastelavn"
        Worksheets("a").Cells(13, 15) = "Bededag"
        Worksheets("a").Cells(26, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(5, 18) = "Pinsedag"
        Worksheets("a").Cells(6, 18) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(18, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(18, 12) = "Påskedag"
        Worksheets("a").Cells(19, 12) = "2.Påskedag"
        Worksheets("a").Cells(15, 12) = "Sk.torsdag"
        Worksheets("a").Cells(16, 12) = "L.fredag"
        Worksheets("a").Cells(28, 6) = "Fastelavn"
        Worksheets("a").Cells(14, 15) = "Bededag"
        Worksheets("a").Cells(27, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(6, 18) = "Pinsedag"
        Worksheets("a").Cells(7, 18) = "2.Pinsedag"
  End If
   
    If Worksheets("a").Cells(19, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(19, 12) = "Påskedag"
        Worksheets("a").Cells(20, 12) = "2.Påskedag"
        Worksheets("a").Cells(16, 12) = "Sk.torsdag"
        Worksheets("a").Cells(17, 12) = "L.fredag"
        Worksheets("a").Cells(29, 6) = "Fastelavn"
        Worksheets("a").Cells(15, 15) = "Bededag"
        Worksheets("a").Cells(28, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(7, 18) = "Pinsedag"
        Worksheets("a").Cells(8, 18) = "2.Pinsedag"
  End If
   
    If Worksheets("a").Cells(20, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(20, 12) = "Påskedag"
        Worksheets("a").Cells(21, 12) = "2.Påskedag"
        Worksheets("a").Cells(17, 12) = "Sk.torsdag"
        Worksheets("a").Cells(18, 12) = "L.fredag"
        Worksheets("a").Cells(30, 6) = "Fastelavn"
        Worksheets("a").Cells(16, 15) = "Bededag"
        Worksheets("a").Cells(29, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(8, 18) = "Pinsedag"
        Worksheets("a").Cells(9, 18) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(21, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(21, 12) = "Påskedag"
        Worksheets("a").Cells(22, 12) = "2.Påskedag"
        Worksheets("a").Cells(18, 12) = "Sk.torsdag"
        Worksheets("a").Cells(19, 12) = "L.fredag"
        Worksheets("a").Cells(31, 6) = "Fastelavn"
        Worksheets("a").Cells(17, 15) = "Bededag"
        Worksheets("a").Cells(30, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(9, 18) = "Pinsedag"
        Worksheets("a").Cells(10, 18) = "2.Pinsedag"
  End If
 
    If Worksheets("a").Cells(22, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(22, 12) = "Påskedag"
        Worksheets("a").Cells(23, 12) = "2.Påskedag"
        Worksheets("a").Cells(19, 12) = "Sk.torsdag"
        Worksheets("a").Cells(20, 12) = "L.fredag"
        Worksheets("a").Cells(32, 6) = "Fastelavn"
        Worksheets("a").Cells(18, 15) = "Bededag"
        Worksheets("a").Cells(31, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(10, 18) = "Pinsedag"
        Worksheets("a").Cells(11, 18) = "2.Pinsedag"
    End If
   
  If Worksheets("a").Cells(23, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(23, 12) = "Påskedag"
        Worksheets("a").Cells(24, 12) = "2.Påskedag"
        Worksheets("a").Cells(20, 12) = "Sk.torsdag"
        Worksheets("a").Cells(21, 12) = "L.fredag"
        Worksheets("a").Cells(19, 15) = "Bededag"
        Worksheets("a").Cells(32, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(11, 18) = "Pinsedag"
        Worksheets("a").Cells(12, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(24, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(24, 12) = "Påskedag"
        Worksheets("a").Cells(25, 12) = "2.Påskedag"
        Worksheets("a").Cells(21, 12) = "Sk.torsdag"
        Worksheets("a").Cells(22, 12) = "L.fredag"
        Worksheets("a").Cells(20, 15) = "Bededag"
        Worksheets("a").Cells(33, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(12, 18) = "Pinsedag"
        Worksheets("a").Cells(13, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(25, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(25, 12) = "Påskedag"
        Worksheets("a").Cells(26, 12) = "2.Påskedag"
        Worksheets("a").Cells(22, 12) = "Sk.torsdag"
        Worksheets("a").Cells(23, 12) = "L.fredag"
        Worksheets("a").Cells(21, 15) = "Bededag"
        Worksheets("a").Cells(34, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(13, 18) = "Pinsedag"
        Worksheets("a").Cells(14, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(26, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(26, 12) = "Påskedag"
        Worksheets("a").Cells(27, 12) = "2.Påskedag"
        Worksheets("a").Cells(23, 12) = "Sk.torsdag"
        Worksheets("a").Cells(24, 12) = "L.fredag"
        Worksheets("a").Cells(22, 15) = "Bededag"
        Worksheets("a").Cells(35, 15) = "Kr.himmelfart"
        Worksheets("a").Cells(14, 18) = "Pinsedag"
        Worksheets("a").Cells(15, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(27, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(27, 12) = "Påskedag"
        Worksheets("a").Cells(28, 12) = "2.Påskedag"
        Worksheets("a").Cells(24, 12) = "Sk.torsdag"
        Worksheets("a").Cells(25, 12) = "L.fredag"
        Worksheets("a").Cells(23, 15) = "Bededag"
        Worksheets("a").Cells(5, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(15, 18) = "Pinsedag"
        Worksheets("a").Cells(16, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(28, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(28, 12) = "Påskedag"
        Worksheets("a").Cells(29, 12) = "2.Påskedag"
        Worksheets("a").Cells(25, 12) = "Sk.torsdag"
        Worksheets("a").Cells(26, 12) = "L.fredag"
        Worksheets("a").Cells(24, 15) = "Bededag"
        Worksheets("a").Cells(6, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(16, 18) = "Pinsedag"
        Worksheets("a").Cells(17, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(29, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(29, 12) = "Påskedag"
        Worksheets("a").Cells(30, 12) = "2.Påskedag"
        Worksheets("a").Cells(26, 12) = "Sk.torsdag"
        Worksheets("a").Cells(27, 12) = "L.fredag"
        Worksheets("a").Cells(25, 15) = "Bededag"
        Worksheets("a").Cells(7, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(17, 18) = "Pinsedag"
        Worksheets("a").Cells(18, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(30, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(30, 12) = "Påskedag"
        Worksheets("a").Cells(31, 12) = "2.Påskedag"
        Worksheets("a").Cells(27, 12) = "Sk.torsdag"
        Worksheets("a").Cells(28, 12) = "L.fredag"
        Worksheets("a").Cells(26, 15) = "Bededag"
        Worksheets("a").Cells(8, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(18, 18) = "Pinsedag"
        Worksheets("a").Cells(19, 18) = "2.Pinsedag"
  End If
 
  If Worksheets("a").Cells(31, 11) = Worksheets("b").Cells(95, 1) Then
        Worksheets("a").Cells(31, 12) = "Påskedag"
        Worksheets("a").Cells(32, 12) = "2.Påskedag"
        Worksheets("a").Cells(28, 12) = "Sk.torsdag"
        Worksheets("a").Cells(29, 12) = "L.fredag"
        Worksheets("a").Cells(27, 15) = "Bededag"
        Worksheets("a").Cells(9, 18) = "Kr.himmelfart"
        Worksheets("a").Cells(19, 18) = "Pinsedag"
        Worksheets("a").Cells(20, 18) = "2.Pinsedag"
  End If
 
If Worksheets("a").Cells(5, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(5, 9) = "Fastelavn"
If Worksheets("a").Cells(6, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(6, 9) = "Fastelavn"
If Worksheets("a").Cells(7, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(7, 9) = "Fastelavn"
If Worksheets("a").Cells(8, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(8, 9) = "Fastelavn"
If Worksheets("a").Cells(9, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(9, 9) = "Fastelavn"
If Worksheets("a").Cells(10, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(10, 9) = "Fastelavn"
If Worksheets("a").Cells(11, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(11, 9) = "Fastelavn"
If Worksheets("a").Cells(12, 8) = Worksheets("b").Cells(92, 1) _
Then Worksheets("a").Cells(12, 9) = "Fastelavn"


End Sub

Sub Slet()
' Slet gamle mærkedage og ugenr.

    Range("C5:C35").Select
    Selection.ClearContents
    Range("F5:F35").Select
    Selection.ClearContents
    Range("I5:I35").Select
    Selection.ClearContents
    Range("L5:L35").Select
    Selection.ClearContents
    Range("O5:O35").Select
    Selection.ClearContents
    Range("R5:R35").Select
    Selection.ClearContents
    Range("C38:C68").Select
    Selection.ClearContents
    Range("F38:F68").Select
    Selection.ClearContents
    Range("I38:I68").Select
    Selection.ClearContents
    Range("L38:L68").Select
    Selection.ClearContents
    Range("O38:O68").Select
    Selection.ClearContents
    Range("R38:R68").Select
    Selection.ClearContents

End Sub

Lukker her