Ferien Start und Ende per VBA eintragen
05.03.2020 07:01:17
Uwe
Die Datei, welche ihr hier seht, ist nur ein Teil eines größeren Komplexes, doch dieser Teil bereitet mir Kopfschmerzen, denn im Moment weiß ich nicht wie ich den Anfang und das Ende der Ferien eintragen kann per VBA oder per Funktion.
Klar einfach wäre es per Hand, aber ich möchte einfach nur den blauen Knopf drücken oder, wenn möglich, soll es automatisch geschehen, wenn bei C3 das Datum TT/MM/JAHR eingegeben wird.
Über eine Hilfe würde ich mich freuen. Bin leider noch nicht so fit in VBA programmieren.
Achja, die Feiertage werden schon per VBA eingetragen und die 1. der Monate geschieht über eine einfache Formel.
https://www.herber.de/bbs/user/135626.xlsx
Vielen lieben Dank
Uwe
PS.: Die
Sub für die Feiertage ist hier zu sehen.
Sub Feiertage()
Dim d As Integer
Dim Bereich As Range
Dim Zelle As Range
Dim Jahr As Date
Dim Neujahr As Date
Dim Karfreitag As Date
Dim Ostersonntag As Date
Dim Ostermontag As Date
Dim Maifeiertag As Date
Dim Himmelfahrt As Date
Dim Pfingstsonntag As Date
Dim Pfingstmontag As Date
Dim TagDeutscheEinheit As Date
Dim ErsterWeihnachtstag As Date
Dim ZweiterWeihnachtstag As Date
Dim Fronleichnam As Date
Dim Reformationstag As Date
Dim Bussbettag As Date
Jahr = DatePart("yyyy", Worksheets("Grundeingabe").Cells(4, 3).Value)
Neujahr = DateSerial(Jahr, 1, 1)
d = (((255 - 11 * (Jahr Mod 19)) - 21) Mod 30) + 21
Ostersonntag = DateSerial(Jahr, 3, 1) + d + (d > 48) + 6 - ((Jahr + Jahr \ 4 + d + (d > 48) + 1) _
Mod 7)
Maifeiertag = DateSerial(Jahr, 5, 1)
Karfreitag = Ostersonntag - 2
Ostermontag = Ostersonntag + 1
Himmelfahrt = Ostersonntag + 39
'Pfingstsonntag = Ostersonntag + 49
Pfingstmontag = Ostersonntag + 50
TagDeutscheEinheit = DateSerial(Jahr, 10, 3)
ErsterWeihnachtstag = DateSerial(Jahr, 12, 25)
ZweiterWeihnachtstag = DateSerial(Jahr, 12, 26)
'Fronleichnam = DateSerial(Jahr, 6, 23)
Reformationstag = DateSerial(Jahr, 10, 31)
Bussbettag = DateSerial(Jahr, 11, 22) - (DateSerial(Jahr, 11, 18) Mod 7)
Cells(21, 3) = Neujahr
Cells(23, 3) = Ostermontag
Cells(22, 3) = Karfreitag
Cells(24, 3) = Maifeiertag
Cells(25, 3) = Himmelfahrt
Cells(26, 3) = Pfingstmontag
Cells(27, 3) = TagDeutscheEinheit
Cells(28, 3) = Reformationstag
Cells(29, 3) = Bussbettag
Cells(30, 3) = ErsterWeihnachtstag
Cells(31, 3) = ZweiterWeihnachtstag
End Sub
Anzeige