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