... fünf Montage im Monat Februar ... Übung

[Jockel]

Hallo @ all, durch eine Quiz-Show, die Montag auf RTL lief, wurde ich inspiriert folgende Übung mal durch zu spielen. Es ging dort um den 5. Montag im Monat Februar. (Eine der Auswahlmöglichkeiten). Das nächste Mal, wann es 5 Montage im Februar gibt.

Meine kleine Übung: Wie oft trifft es zu, dass es 5 Montage im Februar gibt - in einem definierten Zeitraum und in welchen Jahren ist dies der Fall. Gegeben sind nur ein Start- und ein Enddatum. Siehe kleiner Tabellenausschnitt.

Mich würde interessieren, wie ihr das lösen würdet. Ich für mich habe das mit Power Query gelöst. Es würde mich freuen, wenn es den einen oder anderen gibt, der sich hier beteiligt. Ob VBA oder Formel oder Power Query ist egal...

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D
1	01.01.1900
2	31.12.2150		in welchen Jahren	Anzahl
3
4
5
6
7
8
9
10
11

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Kuwer]

Hi Jörg,

mit VBA:

Sub AnzahlFebruareMitFuenfMontagen()

  Dim lngAnzahlJahre As Long

  Dim lngJahr As Long

  Dim datBis As Date

  Dim datVon As Date

  Dim varJahre As Variant

  

  datVon = Range("A1").Value

  datBis = Range("A2").Value

  ReDim varJahre(1 To Year(datBis) - Year(datVon), 1 To 1)

  

  For lngJahr = Year(datVon) To Year(datBis)

    If Day(DateSerial(lngJahr, 2, 29)) = 29 Then

      If Weekday(DateSerial(lngJahr, 2, 29), 2) = 1 Then

        lngAnzahlJahre = lngAnzahlJahre + 1

        varJahre(lngAnzahlJahre, 1) = lngJahr

      End If

    End If

  Next lngJahr

  

  Range("C3").Resize(UBound(varJahre)).Value = varJahre

  Range("D3").Value = lngAnzahlJahre

End Sub

Gruß Uwe

[Jockel]

Moin Uwe, das ging ja rasant. Und ist richtig - was sonst. (^_-) toll...

[Jockel]

Hallo, bislang habe ich zwei Varianten zur Lösung der kleinen Übung bekommen. Eine per PN. Beide mit dem richtigen Ergebnis - die eine VBA, die andere mit Power Query. Danke schon mal dafür. Ich warte noch ein wenig. Es gibt ja keine Auswertung mit Wertung und kein Preis... Trotzdem würde ich den thread am Sonntag Abend schliessen - und dann meinen Vorschlag einbringen. Mal sehen - vielleicht tut sich ja noch etwas. Eine Formelvariante vielleicht, obwohl: das glaube ich eher weniger. (Aber trotzdem) Danke fürs mitgrübeln...

[Der Steuerfuzzi]

	A	B	C	D
1	01.01.1901
2	31.12.2150		In welchen Jahren
3			1904	9
4			1932
5			1960
6			1988
7			2016
8			2044
9			2072
10			2112
11			2140

Zelle	Formel
C3	=WENNFEHLER(AGGREGAT(15;6;(1900+ZEILE($A$1:$A$250))/((TAG(("1.3."&1900+ZEILE($A$1:$A$250))-1)=29)*(REST("1.2."&1900+ZEILE($A$1:$A$250);7)=2));ZEILE(A1));"")
D3	=ANZAHL($C$3:$C$15)

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Jockel]

Moin Michael, danke für deinen Beitrag. Sieht auf den ersten Blick super aus. ABER: Der definierte Zeitraum soll frei definierbar sein, also auch unterjährig... Das ist jetzt unschön - von mir wegen der ungenauen Vorgabe... Beim Testen habe ich festgestellt, dass das auch Uwe's Beitrag betrifft... SORRY.... Auch die Power Query Lösung aus der PN ist betroffen... Oje... 

Bitte nicht böse sein, wegen der offensichtlich schwachen Formulierung...

Also wenn der Start nach dem Februar ist oder das Ende im Januar liegt sollte das jeweils betroffene Jahr nicht mit aufgeführt werden... 

Ja, Fragen stellen ist manchmal schwerer, als sie zu beantworten...

[Kuwer]

Hi Jörg,

Der definierte Zeitraum soll frei definierbar sein, also auch unterjährig...

auch kein Problem:

Sub AnzahlFebruareMitFuenfMontagen()

 Dim lngAnzahlJahre As Long

 Dim lngJahr As Long

 Dim datBis As Date

 Dim datVon As Date

 Dim varJahre As Variant

 

 datVon = Range("A1").Value

 datBis = Range("A2").Value

 ReDim varJahre(1 To Year(datBis) - Year(datVon), 1 To 1)

 

 For lngJahr = Year(datVon) To Year(datBis)

   If DateSerial(lngJahr, 2, 1) >= datVon And DateSerial(lngJahr, 2, 29) <= datBis Then

     If Day(DateSerial(lngJahr, 2, 29)) = 29 Then

       If Weekday(DateSerial(lngJahr, 2, 29), 2) = 1 Then

         lngAnzahlJahre = lngAnzahlJahre + 1

         varJahre(lngAnzahlJahre, 1) = lngJahr

       End If

     End If

   End If

 Next lngJahr

 

 Range("C3").Resize(UBound(varJahre)).Value = varJahre

 Range("D3").Value = lngAnzahlJahre

End Sub

Gruß Uwe

[Jockel]

Hi Uwe, für dich nicht! Passt perfekt. Toll. Da ist wohl ein Bierchen fällig beim nächsten Treffen.

[Jockel]

Hallo, werte Mitleser. Heute möchte ich meinen Lösungsansatz zeigen. Leider wird's beim zeigen bleiben, denn: Die, die mich kennen, wissen, dass ich kein Erklär-Bär bin. Es ist ein Ansatz. Nicht mehr und nicht weniger... Es geht sicher besser - auf jeden Fall anders.  Ich habe einiges Interessante gesehen und gelernt. Wenn es Fragen gibt, versuche ich sie natürlichzu beantworten... So, bin gleich afk - es wird kulturell in Bad Arolsen...


  Übung_5ter_Montag_im_Februar_mit_PQ.xlsb (Größe: 18,67 KB / Downloads: 7)