Verweis für Ferienkalender

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nachfrage...

29.08.2022 14:51:16

{Boris}

AW: Nachfrage...

29.08.2022 14:54:36

Markus

Beispieldatei...

29.08.2022 14:57:58

{Boris}

AW: Beispieldatei...

29.08.2022 15:53:28

Markus

Du kannst aber auch mal...

29.08.2022 16:06:20

{Boris}

AW: Verweis für Ferienkalender

29.08.2022 15:25:44

Daniel

AW: Verweis für Ferienkalender

29.08.2022 16:42:08

Daniel

Viel besser...

29.08.2022 18:09:24

{Boris}

Angepasst...

29.08.2022 18:12:04

{Boris}

AW: Viel besser...

30.08.2022 10:48:44

Markus

VBA?

29.08.2022 17:35:05

Yal

AW: VBA?

30.08.2022 10:55:26

Markus

Hi,
...den Vorschlag von Daniel umsetzen. Ist - wie er ja schreibt - etwas mehr Vorarbeit, dafür ist die Formel einfacher.
Andererseits ist meine gepostete Formel gar nicht soooo wahnsinnig schwer verständlich:
=LET(
x;($A$3:$A$100=I$2)*($C$3:$C$100=$H3)+($A$3:$A$100=I$2)*($E$3:$E$100=$H3);
WENN(SUMME(x);INDEX($B$3:$B$100;MIN(WENN(x;SEQUENZ(98))));""))
LET ist ja erstmal hauptsächlich dafür da, um Redundanzen zu vermeiden.
Der fett gedruckte Teil (reine Matrixberechnungen - hier Multiplikation / Addition von Wahrheitswerten - wie man sie schon immer macht) wird dabei zu Beginn der Variablen x zugewiesen, auf die in der eigentlichen Formel (WENN(SUMME(...)) 2 mal zurückgegriffen wird.
Ohne LET würde die Formel halt länger (und noch unübersichtlicher),
SEQUENZ ist eine sehr simple Funktion zur Erzeugung von Zahlenreihen-/folgen. Vormals hat man das mit ZEILE($1:$98) formuliert (geht natürlich auch so in xl365).
VG, Boris

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

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

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread