Feiertage als Zellkommentar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Harald,
die in der Funktion "Feiertage" hinterlegten Feiertage musst du halt anpassen.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

'C10:C17,C22:C28,C33:C39,C44:C50,C55:C62

Sub addCelebrationComment()
Dim rng As Range, rngD As Range
Dim strTemp

Set rngD = Sheets("Kalender").Range("C10:C17,C22:C28,C33:C39,C44:C50,C55:C62") 'Tabellenname anpassen

rngD.ClearComments

For Each rng In rngD
    If IsDate(rng) And rng <> "" Then
        strTemp = Feiertage(rng.Value)
        If strTemp <> "" Then
            rng.AddComment strTemp
            rng.Comment.Shape.TextFrame.AutoSize = True
        End If
    End If
Next

End Sub
Public Function Feiertage(Datum As Date)
Dim J As Integer
Dim O As Date
J = Year(Datum)
O = Ostern(J)
Select Case Datum
    Case Is = DateSerial(J, 1, 1)
        Feiertage = "Neujahr"
    Case Is = DateSerial(J, 1, 6)
        Feiertage = "Dreikönig"
    Case Is = O
        Feiertage = "Ostersonntag"
    Case Is = DateAdd("D", 1, O)
        Feiertage = "Ostermontag"
    Case Is = DateSerial(J, 5, 1)
        Feiertage = "Erster Mai"
    Case Is = DateAdd("D", 39, O)
        Feiertage = "Christi Himmelfahrt"
    Case Is = DateAdd("D", 49, O)
        Feiertage = "Pfingstsonntag"
    Case Is = DateAdd("D", 50, O)
        Feiertage = "Pfingstmontag"
    Case Is = DateAdd("D", 60, O)
        Feiertage = "Fronleichnam"
    Case Is = DateSerial(J, 8, 15)
        Feiertage = "Maria Mimmelfahrt"
    Case Is = DateSerial(J, 10, 26)
        Feiertage = "NationalFeiertage"
    Case Is = DateSerial(J, 11, 1)
        Feiertage = "Allerheiligen"
    Case Is = DateSerial(J, 12, 8)
        Feiertage = "Maria Empfängnis"
    Case Is = DateSerial(J, 12, 24)
        Feiertage = "Heilig Abend"
    Case Is = DateSerial(J, 12, 25)
        Feiertage = "Christtag"
    Case Is = DateSerial(J, 12, 26)
        Feiertage = "Stefanitag"
    Case Is = DateSerial(J, 12, 31)
        Feiertage = "Silvester"
        '##Von Weihnachten abgeleitete Fest- und Gedenktage
    Case Is = DateSerial(J, 12, 25) - Weekday(DateSerial(J, 12, 25), 2) - 35
        Feiertage = "Volkstrauertag"
    Case Is = DateSerial(J, 12, 25) - Weekday(DateSerial(J, 12, 25), 2) - 32
        Feiertage = "Buss- u. Bettag"
    Case Is = DateSerial(J, 12, 25) - Weekday(DateSerial(J, 12, 25), 2) - 28
        Feiertage = "Totensonntag/Ewigkeitssonntag"
    Case Is = DateSerial(J, 12, 25) - Weekday(DateSerial(J, 12, 25), 2) - 21
        Feiertage = "1. Advent"
    Case Is = DateSerial(J, 12, 25) - Weekday(DateSerial(J, 12, 25), 2) - 14
        Feiertage = "2. Advent"
    Case Is = DateSerial(J, 12, 25) - Weekday(DateSerial(J, 12, 25), 2) - 7
        Feiertage = "3. Advent"
    Case Is = DateSerial(J, 12, 25) - Weekday(DateSerial(J, 12, 25), 2)
        Feiertage = "4. Advent"
        '##
    Case Else
        Feiertage = ""
End Select
End Function

Public Function Ostern(Year As Integer)
Dim D As Integer
D = (((255 - 11 * (Year Mod 19)) - 21) Mod 30) + 21
Ostern = DateSerial(Year, 3, 1) + D + (D > 48) + 6 - _
    ((Year + Year \ 4 + D + (D > 48) + 1) Mod 7)
End Function

Gruß Sepp

Hallo Harald,
da das nur mit VBA geht, zumindest wenn es automatisch sein soll, bin ich davon ausgegangen, das du VBA-Kenntnisse hast. Habe inzwischen in deinem Level gesehen, das das wohl nicht so ist. Nun weiß ich aber nicht, wie ich dir helfen soll. Selber kannst du das nicht anpassen, ich weiß nicht wie dein Kalender aussieht. Also legen wir uns wieder hin.
Aber immerhin kannst du VBA-Passwörter umgehen. ;-) Tut mir leid, das da eins drin war. Da ich normalerweise damit nicht arbeite, habe ich nicht dran gedacht. Das war da nur zu Testzwecken drin. Hatte vergessen es wieder zu löschen. Für andere Interessenten es lautet * , kein Scherz es ist das Sternchen.
Viele Grüße Klaus-Dieter

Online-Excel

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Feiertage als Zellkommentar

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread