Datei_098,Feiertage automatisch eintragen

98. Feiertage automatisch eintragen

Aufgabenstellung:

Für diese Beispieldatei war die Aufgabenstellung in einer Spalte zu den vorhandenen Datumswerten in Spalte A die dazugehörigen Feiertage automatisch in Spalte C einzutragen. Zusätzlich wird in Spalte D eine Formel aufgezeigt, die ebenfalls die Feiertage einträgt.

Diese Beispiele stehen auch als Beispieldatei zum Download zur Verfügung.
In der Zipdatei befindet sich eine xls-Datei für Excel 2000 - 2003 und eine xlsm-Datei für Excel 2007.

Aufbau der Tabellenblätter:

Blatt "Kalender"

A B C D E
1
2 Datum Wochentag Feiertage VBA Feiertage Formel Jahreszahleingabe
3 01.01.2008 Di Neujahr Neujahr 2008
4 02.01.2008 Mi
5 03.01.2008 Do
6 04.01.2008 Fr
7 05.01.2008 Sa
8 06.01.2008 So heilige 3 Könige heilige 3 Könige
9 07.01.2008 Mo
10 08.01.2008 Di
11 09.01.2008 Mi
12 10.01.2008 Do
13 11.01.2008 Fr
14 12.01.2008 Sa
15 13.01.2008 So
16 14.01.2008 Mo
17 15.01.2008 Di

Blatt "Feiertage"

A B C D

1

2 2008 Feiertag

3 01.01.2008 Neujahr

4 06.01.2008 heilige 3 Könige

5 21.03.2008 Karfreitag

6 22.03.2008 Ostersamstag

7 23.03.2008 Ostersonntag

8 24.03.2008 Ostermontag

9 01.05.2008 1. Mai

10 01.05.2008 Himmelfahrt

11 11.05.2008 Pfingstsonntag

12 12.05.2008 Pfingstmontag

13 22.05.2008 Fronleichnam

14 15.08.2008 Mariä Himmelfahrt

15 03.10.2008 Deutsche Einheit

16 31.10.2008 Reformationstag

17 01.11.2008 Allerheiligen

18 16.11.2008 Volkstrauertag

19 19.11.2008 Buß- und Bettag

20 24.12.2008 Heilig Abend

21 25.12.2008 1. Weihnachtstag

22 26.12.2008 2. Weihnachtstag

23 31.12.2008 Silvester

24

Realisiert wurde der Eintrag der Feiertage in Spalte C durch eine VBA-Lösung.

Der Code ist in ein StandardModul einzufügen

Option Explicit

Sub Feiertage_einfügen()
Dim iZeil As Integer
'Fehlerbehandlung einschalten
On Error Resume Next
'Werte im Bereich von Zelle C3 bis C386 löschen
Range("C3:C386").ClearContents
'For/Next-Schleife um in Spalte C die Feiertage einzutragen
For iZeil = 3 To 368
    'In der durch die Schleife angesprochenen Zelle in Spalte C den Wert eintragen, _
     der durch die Function "VLookup (SVERWEIS()) zurückgegeben wird, eintragen
    Sheets("Kalender").Cells(iZeil, 3) _
    = Application.WorksheetFunction.VLookup(Sheets("Kalender") _
    .Cells(iZeil, 1), Sheets("Feiertage").Range("B3:C23"), 2, False)
Next iZeil
End Sub

Realisiert wurde der Eintrag der Feiertage in Spalte D durch eine Formellösung.

Hier steht in Spalte A das Datum. In Tabellenblatt "Feiertage" stehen in Spalte B die Datumswerte der Feiertage und in Spalte C die Feiertagsnamen.

=WENN(ISTNV(SVERWEIS(A3;Feiertage!$B$3:$C$23;2;0));"";SVERWEIS(A3;Feiertage!$B$3:$C$23;2;0))

Dieses Beispiel wurde unter den in der Tabelle aufgeführten Versionen getestet.

A B C D E

1

2

Excel - Version

Getestet

3

4 Excel 2007 12.0 a

5 Excel 2003 11.0 a

6 Excel 2002 10.0 a

7 Excel 2000 9.0 a

8 Excel 97 8.0

9

10 Anzahl der Downloads:

11

12 Dieses Beispiel wurde bereits x aufgerufen.

13

14

> Beispieldatei herunterladen <

Sollten beim Ausführen der Beispieldatei Fehler auftreten, bitte ich darum, mir eine Mail mit der Fehlerbeschreibung an fehler@excelbeispiele.de zu schicken.
Danke!

Möchten Sie www.excelbeispiele.de in Ihre Favoriten aufnehmen? Dann Klicken Sie hier.

Kontakt:

letzte Aktualisierung am 06.01.2008