Feiertagsnamen in Kalender übertragen

Hallo,
ich hoffe das mir jemand bei einem problem mit vba functionen helfen.

ich möchte mit einer function einen Feiertagsnamen in ein Kalenderblatt einfügen

im kalenderblatt ist immer nur der aktuelle monat wie folgt dargestell

spalte 2 = KW
spalte 4 = montag
spalte 7 = dienstag
usw…
nun soll durch die funktion der dazugehörige feiertagsname unter den tag eingefügt werden

die tabelle in welcher die feiertagsnamen stehen hat nur zwei spalten

Spalte 1 = Feiertagsdatum
Spalte 2 = Feiertagsname

mfg

herbert

ich möchte mit einer function einen Feiertagsnamen in ein
Kalenderblatt einfügen
spalte 2 = KW
spalte 4 = montag
spalte 7 = dienstag
nun soll durch die funktion der dazugehörige feiertagsname
unter den tag eingefügt werden

die tabelle in welcher die feiertagsnamen stehen hat nur zwei
spalten
Spalte 1 = Feiertagsdatum
Spalte 2 = Feiertagsname

Hallo Herbert,

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │ C │ D │ E │ F │ G │
──┼─────────────┼───────────────┼──────────────┼──────────────┼───────────────┼──────────────┼──────────────┤
1 │ Mo 07.01.13 │ Di 08.01.13 │ Mi 09.01.13 │ Do 10.01.13 │ Fr 11.01.13 │ Sa 12.01.13 │ So 13.01.13 │
──┼─────────────┼───────────────┼──────────────┼──────────────┼───────────────┼──────────────┼──────────────┤
2 │ │ Feiertag1 │ │ Feiertag2 │ │ │ │
──┴─────────────┴───────────────┴──────────────┴──────────────┴───────────────┴──────────────┴──────────────┘
Benutzte Formeln:
A2: =Feiertag(A1)
B2: =Feiertag(B1)
C2: =Feiertag(C1)
usw. in Zeile 2
Festgelegte Namen:
Feiertage: =Tabelle2!$A$1:blush:B$2

Zahlenformate der Zellen im gewählten Bereich:
A1:G1
haben das Zahlenformat: TTT \* TT.MM.JJ
A2:G2
haben das Zahlenformat: Standard

Tabellendarstellung erreicht mit dem Code in FAQ:2363

In ein Standardmodul, Modul1 o.ä.

Option Explicit

Function Feiertag(Datumszelle) As Variant
Feiertag = ""
If Application.CountIf(Range("Feiertage"), Datumszelle.Value) Then
 Feiertag = Application.VLookup(Datumszelle, Range("Feiertage"), 2, 0)
End If
End Function

Gruß
Reinhard

Hallo Reinhard,

die danke für deine Hilfe.
die funktion arbeitet genau nach meinen vorstellungen.

noch einmal danke

gruß herbert