Freitag, der 13. [Excel 365, 2021, Online]

[RPP63]

Sehr schön. snb!
Aber:
Da Filter() [VBA] ein nullbasiertes Array zurückgibt, müsste es doch UBound(Array)+1 sein, oder?

Gruß Ralf

[snb]

Mit Alter, schon größer als 100 "Fri 13" darf man doch wenigstens 1 schmuggelen, nicht ?

[RPP63]

 Noch so ein dreistelliger!

[snb]

@RPP und noch 'etwas' mehr als 103

Könnte kompakter:

Code:

Function F_snb()
  F_snb = [sum(N(text(A1+row(offset(A1,0,0,today()-A1)),"ddd dd")="Fri 13"))]
End Function

[snb]

Revisited:

Code:

Function F_snb()
  F_snb = [sum(N(text(row(offset(A1,A1,0,today()-A1)),"ddd dd")="Fri 13"))]
End Function

[Luschi]

Hallo Excel-Fan's,

hier hal eine PQ-Abfrage dazu:
let
    Quelle = {Number.From(Geb_Dat)..Number.From(Heute)},
    #"In Tabelle konvertiert" = Table.FromList(Quelle, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Geänderter Typ" = Table.TransformColumnTypes(#"In Tabelle konvertiert",{{"Column1", type date}}),
    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Geänderter Typ", "Wochentag",
        each Date.DayOfWeekName([Column1])),
    #"Gefilterte Zeilen" = Table.SelectRows(#"Hinzugefügte benutzerdefinierte Spalte", each ([Wochentag] = "Freitag")),
    #"Hinzugefügte benutzerdefinierte Spalte1" = Table.AddColumn(#"Gefilterte Zeilen", "Tag", each Date.Day([Column1])),
    #"Gefilterte Zeilen1" = Table.SelectRows(#"Hinzugefügte benutzerdefinierte Spalte1", each ([Tag] = 13)),
    Anz_Fr_13 = List.Count(#"Gefilterte Zeilen1"[Tag])

in
    Anz_Fr_13

Gruß von Luschi
aus klein-Paris

PS: mein Ergebnis: 119