Verweis für Ferienkalender

Markus · 2022-08-29T14:10:53+00:00

Hi zusammen, ich möchte einen Ferienkalender erstellen, der anhand des jeweiligen von- und bis-Datums in einer Stammdatenliste den Feriennamen zieht und in jeden einzelnen Tag der in den Kalender überträgt. Und zwar auch in Abhängigkeit vom jeweiligen Bundesland. Etwas knifflig ist dabei, dass es, meistens bei den Pfingstferien, einzelne zusätzliche Tage gibt. Bsp. 13.05. - 18.05. + 26.05. Mit der Beispieldatei wir es hoffentlich klarer. https://www.herber.de/bbs/user/154862.xlsx Danke euch vorab! VG Markus

Hi
Andere Lösungsmöglichkeit, die etwas mehr Vorbereitung erfordert, dafür eine einfache Formel ermöglicht:
Die Stammdatentabelle musst du so für jedes Bundesland aufbauen:
In der ersten Spalte immer abwechselnd das Datum des ersten Arbeitstagesund das Datum des ersten Ferientags.
In der zweiten Spalte schreibt du daneben beim ersten Arbeitstag nichts und beim ersten Ferientag den Feriennamen.
Sind die Ferien in zwei Blöcke geteilt, dann wiederholt du einfach den Feriennamen, auch einzeltage kannst du so eingeben.
Wichtig ist nur, dass die Liste nach Datum aufsteigend sortiert ist.
Dh die Liste muss in etwa so aussehen:


01.01.22 |
10.04.22 | Osterferien
17.04.22 |
05.05.22 | Pfingstferien
12.05.22 |
23.05.22 | Pfingstferien
24.05.22 |

So eine Liste erstellst du für jedes Bundesland.
Dann markiert du jede Liste und vergibst ihr einen Excel-Namen, am besten nimmt du den Namen des jeweigen Bundeslandes, den du auch in deiner Übersicht in Spalte G verwendest:
Die Formel in deiner Übersicht sieht dann so aus, in deiner Beispieldatei in Zelle I3:


=SVerweis(H3;Indirekt(G3);2;Wahr)&""

Gruß Daniel

Moin,
Vielleicht ist in dem Fall VBA nicht so sehr abwägig...


Sub Datum_transformieren()
Dim Z As Range 'Z wie Zelle
Dim R As Long ' R wie Row
Dim i
With Worksheets("Tabelle1")
For Each Z In Range(.Range("A3"), .Cells(Rows.Count, "A").End(xlUp))
Set Z = Z.EntireRow
'Von-Bis
For i = Z.Range("C1").Value To Z.Range("D1").Value 'relative Adresse: "1" ist immer die Zeile von Z
R = .Cells(Rows.Count, "G").End(xlUp).Row + 1
.Cells(R, "G") = Z.Range("A1").Value
.Cells(R, "H") = CDate(i)
.Cells(R, "I") = Z.Range("B1").Value
Next
'EinzelDatum, Falls vorhanden
If Z.Range("E1")  "" Then
R = .Cells(Rows.Count, "G").End(xlUp).Row + 1
.Cells(R, "G") = Z.Range("A1").Value
.Cells(R, "H") = Z.Range("E1").Value
.Cells(R, "I") = Z.Range("B1").Value
End If
Next
End With
End Sub

Mein Tipp, um VBA-Versteher zu werden: den Code auf Deutsch laut lesen. Hört sich bescheuert an, aber beschleunigt das Verstehen ungemein :-)
VG
Yal

Forumthread: Verweis für Ferienkalender

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial