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