Feiertage in Excelkalender per VBA eintragen

Hallo,
ich bin auf der Suche nach einer Möglichkeit, Feiertage in einem Kalender per VBA eintragen zu lassen.
Ich bin bereits auf ein Beitrag in dem Forum Archiv gestossen:
https://www.herber.de/forum/archiv/1128to1132/1130235_Feiertage_in_Kalender_eintragen_per_VBA.html
Dort wird auch gut auf das Problem eingegangen. Leider werden die Feiertage nur in der Spalte B ausgegeben.
Mein Kalender sieht folgendermaßen aus:

Spalte A: Datumbereich für Januar

Spalte B: Freies Feld für einen Eintrag bezogen auf das Datum aus Spalte A
(auch für die Feiertage, die automatisch per VBA eingetragen werden sollen)

Spalte C: Datumbereich für Februar

Spalte D: Freies Feld für einen Eintrag bezogen auf das Datum aus Spalte C
(auch für die Feiertage, die automatisch per VBA eingetragen werden sollen

.. usw. bis Dezember.
Kann man dort die Funktion soweit erweitern/abändern, dass die jeweilige Ausgabe
in der jeweiligen richtigen Spalte ausgegeben wird?
Im Anhang ist die Datei aus dem Online-Archiv.
https://www.herber.de/bbs/user/124822.xls
Gruß
Adam

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rob,
Danke für deine Antwort.
Ich möchte nicht in den Eingabefeldern (Spalte C,E,G, usw.) Formeln benutzen um Feiertage eintragen zu lassen sondern dies per VBA einfügen.
Anbei meine Beispieldatei:
https://www.herber.de/bbs/user/124837.xlsx
In der Datei aus dem Forum Archiv: https://www.herber.de/bbs/user/124822.xls
sind folgende Makros aktiv:
Makro in Tabelle 1
Sub n()
'MsgBox WorksheetFunction.VLookup(ActiveCell.Value, Range("AC5:AD18"), 2, 0)
MsgBox WorksheetFunction.VLookup(Cells(Target.Row, 1), Range("AC5:AD18"), 2, 0)
End Sub
Makro in Modul1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If WorksheetFunction.CountIf(Range("AC5:AC18"), Cells(Target.Row, 1))  1 Then Exit Sub
If Target.Value = "" Then Cells(Target.Row, Target.Column) = WorksheetFunction.VLookup(Cells(_
Target.Row, 1), Range("AC5:AD18"), 2, 0)
End If
End Sub

So wie ich das verstehe, werden die Feiertagseingaben in AC5 bis AD18 angegeben und die Ausgabe wird nur in Spalte B neben dem Datum ausgegeben.
Für meinen Fall müssten die Angaben jeweils rechts neben dem Datum in verschiedenen Spalten ausgegeben werden.
Kann man das Makro dahingehend verändern?
Gruß
Adam

Beliebteste Forumthreads (12 Monate)

Feiertage in Excelkalender per VBA eintragen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Feiertage in Excelkalender per VBA eintragen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread