Sehr schön. snb!
Aber:
Da Filter() [VBA] ein nullbasiertes Array zurückgibt, müsste es doch UBound(Array)+1 sein, oder?
Gruß Ralf
Mit Alter, schon größer als 100 "Fri 13" darf man doch wenigstens 1 schmuggelen, nicht ?
Noch so ein dreistelliger!
@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
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