Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Feiertage in VBA

Feiertage in VBA
18.04.2006 12:36:37
Heinz H
Mahlzeit Leute
Ich habe in S60:S76 das Datum von den Feiertagen stehen.
Und in A6:A39 das Tagesdatum stehen.
Nun möchte ich wenn A6:A39 gleich S60:S76 gleich ist,das in L6:L39 "Feiertag" steht.
Also Zb. A6 = 1.5.2006 das in L6 "Feiertag" steht.
Könnte mir dabei Bitte jemand helfen.
Bräuchte es in VBA,da das Tab.Blatt immer um ein Monat hochgezählt wird und in der Zelle
L6:L39 auch öfters ein Kommentar reingeschrieben wird.
Dann wäre die Formel in L6:L39 fort.
Danke Heinz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feiertage in VBA
18.04.2006 12:59:57
Matthias G
Hallo Heinz,
wie wäre es mit einer VBA-Funktion Feiertag()?

Function Feiertag(Dat As Date) As Boolean
Dim m As Integer, d As Integer, y As Integer
Dim ost As Date
Dim dd As Integer
m = Month(Dat)
d = Day(Dat)
y = Year(Dat)
dd = (((255 - 11 * (y Mod 19)) - 21) Mod 30) + 21
ost = DateSerial(y, 3, 1) + dd + (dd > 48) + _
6 - ((y + y \ 4 + dd + (dd > 48) + 1) Mod 7)
'bewegliche Feiertage
Select Case Dat
Case ost + 1, ost - 2, ost + 39, ost + 50, ost + 60
Feiertag = True
Exit Function
End Select
'feste Feiertage:
If d = 1 And m = 1 Then Feiertag = True: Exit Function
If d = 6 And m = 1 Then Feiertag = True: Exit Function
If d = 1 And m = 5 Then Feiertag = True: Exit Function
If d = 15 And m = 8 Then Feiertag = True: Exit Function 'nur in Bayern!
If d = 3 And m = 10 Then Feiertag = True: Exit Function
If d = 1 And m = 11 Then Feiertag = True: Exit Function
If d = 25 And m = 12 Then Feiertag = True: Exit Function
If d = 26 And m = 12 Then Feiertag = True: Exit Function
If d = 31 And m = 12 Then Feiertag = True: Exit Function
End Function

Anzeige
AW: Feiertage in VBA
18.04.2006 13:58:14
Heinz H
Hallo Matthias
Zum glaube ich 100 mal !!!
Recht herzlichen Dank für Deine Hilfe !!!
Danke & Gruß Heinz
und was ist mit Buß&Bettag?
18.04.2006 20:09:43
r.sch.
Hej Heinz,
zugegeben, der ist nur noch in Sachsen (ges., will heißen arbeitsfreier) Feiertag, aber wenn schon denn schon:
Etwas kompliziert zu berechnen, es ist der Mittwoch vor Totensonntag, dem letzten Sonntag des Kirchenjahres; danach folgt der 1. Advent, womit das Kirchenjahr beginnt (der 4. Advent ist der Sonntag vor dem 1. Weihnachtsfeiertag). Du mußt also als erstes den Sonntag vor dem 25.12. bestimmen. (etwa so: DateSerial(Jahr, 12, 24) - (Weekday(DateSerial(Jahr, 12, 24)) - 8) - i * 7, wobei für i=6 steht)
Gruß aus 'm Vorharz
Reinhard
Anzeige
AW: und was ist mit Buß&Bettag?
19.04.2006 13:23:49
Heinz H
Hallo Reinhard
Danke für Deine Hilfe
Da ich in Österreich zuhause bin,genügt der Code von Matthiasmit ein paar kleine Abänderungen vollkommen.
Danke & Gruss, Heinz
AW: Feiertage ohne VBA
18.04.2006 13:07:25
Bertram
Hallo Heinz,
ohne VBA, könnte man sich so was zusammenstricken, wenn in T60-T76 "Feiertag" steht.
L6: =SVERWEIS(A6;$S$60:$T$76;2;0) usw.
Gruß
Bertram
AW: Feiertage ohne VBA
18.04.2006 13:56:45
Heinz H
Hallo Bertram
Danke für Deine Hilfe.
Aber ich bräuchte es in VBA
Gruß Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige