Voriges Monat anzeigen

[snb]

@RPP



Vormonat: Application.GetCustomListContents(8)(Month(Date)-1)

[RPP63]

Als (späte) Replik, snb:
Deine Variante funktioniert nur in ca. 91,2 % aller Fälle …
Im Januar ergibt das den nicht vorhandenen Index 0 → LZF 9.

Gruß Ralf

[Luschi]

Hallo Ralf,

bei mir klappt das dann so: Application.GetCustomListContents(8)(IIf(Month(Date) = 1, 12, Month(Now) - 1))

Gruß von Luschi
aus klein-Paris

[snb]

@RPP

Ich ahnte das erste item von getcustomlist 0 zu sein.

Dann alles noch einfacher:

Untergrenze 1 (option compare 1)

Vormonat: Application.GetCustomListContents(8)(Month(Date))

Untergrenze 0 (option compare 0)

Vormonat: filter(Application.GetCustomListContents(8),"")(Month(Date)-1)

[RPP63]

Die Diskussion gleitet ins Akademische ab …
Month(Date-Day(Date))
ist und bleibt mein Favorit, da der 0.[Monat] immer den Monatsletzten des Vormonats ausgibt.
• der 0. März ist entweder der 28. oder 29. Februar
• der 0. Januar ist der 31. Dezember des Vorjahres

[RPP63]

bei mir klappt das dann so: Application.GetCustomListContents(8)(IIf(Month(Date) = 1, 12, Month(Now) - 1))

Jo, ist ein klarer Fortschritt zu meinem bisherigen Vorschlag!

	A	B
20	Month(DateAdd("m", -1, Date))	29
21	IIf(Month(Date) = 1, 12, Month(Now) - 1)	40

Zelle	Formel
B20	=LÄNGE(A20:A21)

[knobbi38]

Ein habe ich noch:

Code:

Monthname((Month(Date) + 10) mod 12 + 1))

oder als Formel:

Code:

=TEXT(REST(MONAT(HEUTE())+10;12)+1;"MMM")

frei nach der Formel für Modulo mit Offset:

Code:

(startingValue - minimumValue + (offset mod modulus) + modulus) mod modulus + minimalValue

Knobbi38

[RPP63]

Moin!
MonthName() gefällt mir! 
(nie benutzt, mir bisher unbekannt)
Der Algorithmus gefällt mir ebenso!

	A	B
20	Application.GetCustomListContents(8)(Month(DateAdd("m", -1, Date)))	67
21	Application.GetCustomListContents(8)(IIf(Month(Date) = 1, 12, Month(Now) - 1))	78
22	Monthname((Month(Date) + 10) mod 12 + 1))	41

Zelle	Formel
B20	=LÄNGE(A20:A22)

Gruß Ralf

[snb]

RPP

Du hast völlig recht. Ich habe mir/mich (?) geirrt.

[Blaukraut05]

Hallo Leute, 

wie wäre es mit 
Format(DateAdd("m", -1, Date), "mmmm")   ---(VBA)

oder 
=TEXT(EDATUM(HEUTE(); -1); "MMMM")    ---(Formel)



Viele Grüße
Michael