Ferien Start und Ende per VBA eintragen

Hallöchen ihr Lieben :)
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Uwe,
hier mal eine Idie, woher und wie Du die Ferien (zunächst in eine Tabelle) bekommen kannst....
Vielleicht hilft es Dir ja weiter.

Option Explicit

Sub HoleFerienAusWEB()

 With ThisWorkbook.Sheets("Tabelle1")

  .Select

  .Cells.Clear

  LadeIETabelle3 .Range("$A$1"), "http://www.kalenderpedia.de/ferien/ferien-2020.html"

 End With

End Sub

Sub LadeIETabelle3(rZiel As Range, sUrl As String)

'Tabelle aus einer WEB-Anwendung kopieren (KHV Okt 2018)

 Dim oIE As Object, sArr() As String

 Dim iZeile As Long, iSpalte As Long, iAnzZl As Long, iAnzSp As Long

 Set oIE = CreateObject("InternetExplorer.application")

 oIE.Navigate2 sUrl

 oIE.Visible = False

 While Not oIE.ReadyState = 4: DoEvents: Wend

 With oIE.document.all.tags("table")(4)

  iAnzZl = .Rows.Length - 1

  iAnzSp = .Rows(0).Cells.Length - 1

  ReDim sArr(iAnzZl, iAnzSp)

  For iZeile = 0 To iAnzZl

   For iSpalte = 0 To iAnzSp

     sArr(iZeile, iSpalte) = .Rows(iZeile).Cells(iSpalte).innerText

   Next iSpalte

  Next iZeile

 End With

 rZiel.Resize(iAnzZl, iAnzSp).value = sArr()

 oIE.Quit

 Set oIE = Nothing

End Sub

viele Grüße
Karl-Heinz

Sub zu schreiben, welche das Verzeichnis durchschaut nach Dateien mit einem Dateinamen als der _ aktuelle, zum Beispiel: aktuelle Datei heißt: Dienstpläne - Urlaubsübersicht - 2020.xlsm die neu generierte Datei würde dann: Dienstpläne - Urlaubsübersicht - 2021.xlsm heißen. Es sollte folgendermaßen funktionieren: Die Sub durchsucht das Verzeichnis nach der "höheren" Datei, wenn das System keine gefunden hat, _ dann soll eine neue generiert werden, wenn er eine findet, dann soll er die Sub verlassen. Im Moment sieht mein Code folgendermaßen aus, aber es funzt nicht so, wie es _ soll: Sub Test() Dim fs As Object Dim fVerz As Object Dim fDatei As Object Dim fdateien As Object Dim strDat As String Set fs = CreateObject("scripting.FileSystemObject") Set fVerz = fs.getFolder("f:\Programmieren") Set fdateien = fVerz.Files For Each fDatei In fdateien If InStr(fDatei, "") Jemand vielleicht eine Idee? Grüßle Uwe

Beliebteste Forumthreads (12 Monate)

Ferien Start und Ende per VBA eintragen

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread