Feiertage in VBA

Forumthread: 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

AW: Feiertage in VBA

18.04.2006 12:59:57

Matthias G
AW: Feiertage in VBA

18.04.2006 13:58:14

Heinz H
und was ist mit Buß&Bettag?

18.04.2006 20:09:43

r.sch.
AW: und was ist mit Buß&Bettag?

19.04.2006 13:23:49

Heinz H
AW: Feiertage ohne VBA

18.04.2006 13:07:25

Bertram
AW: Feiertage ohne VBA

18.04.2006 13:56:45

Heinz H

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

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

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)

Forumthread: Feiertage in VBA

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

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread