HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Anzahl Kalendertage im aktuellen Monat ermitteln
Mister

Guten Morgen,
In Zelle C40 steht das aktuelle Datum HEUTE(). Wie kann ich ermitteln wie viele Kalendertage in diesem Monat sind? Die Zelle anders zu formatieren bringt mir nichts da sich in der Zelle immer noch ein Datum befindet. Ich brauche lediglich die Zahl der Kalendertage als Zahl weil ich diese Zahl weiterverarbeiten muss. Verständlich!!? :-)
Gruß
Martin

AW: Anzahl Kalendertage im aktuellen Monat ermitteln
Peter

Hallo Martin,
sieh dir die beidnenmakros (Function und Sub) an:
'
' Der Aufruf erfolgt im Tabellenblatt so :
'
' =TageProMonat(Heute())
'
' Oder: =TageProMonat("06.09.2007")
'
' Oder: =TageProMonat(A1) (Wenn in A1 ein DAtum steht !)
'
Function TageProMonat(Datum As Date)
TageProMonat = Day(DateSerial(Year(Datum), Month(Datum) + 1, 0))
End Function


Public Sub Tage_des_Monats() MsgBox "die Anzahl Tage im Monat " & Month([A1]) & " beträgt: " & _ Day(DateSerial(Year([A1]), Month([A1]) + 1, 0)), _ 64, " Info für " & Application.UserName End Sub


Gruß Peter

Ohne VBA
Josef

Hallo Martin,
Tabelle2

 ABC
2   
324.01.200831 
403.02.200829 
517.03.200831 
6   

Formeln der Tabelle
ZelleFormel
B3=TAG(DATUM(JAHR(A3); MONAT(A3)+1;0))
Excel Tabellen im Web darstellen  Excel Jeanie HTML
Gruß Sepp

AW: Formel
Peter

Hallo Mister B,
versuche mal die Formel
=WENN(ODER(MONAT(C40)*1=1;MONAT(C40)*1=3;MONAT(C40)*1=5;MONAT(C40)*1=7;MONAT(C40)*1=8;MONAT(C40)*1=10;MONAT(C40)*1=12);31;WENN(MONAT(C40)*1=2;28;30))
Gruß, Peter

AW: Formel
Andi

Hi,
da is aber gleich mal der Februar verkehrt, weil 2008 ein Schaltjahr ist.
Schönen Gruß,
Andi

AW: Da hast Du recht...
Peter

... da müsste ich die Formel noch modifizieren.
Gruß, Peter

AW: mit Schaltjahr
Peter

=WENN(ODER(MONAT(C40)*1=1;MONAT(C40)*1=3;MONAT(C40)*1=5;MONAT(C40)*1=7;MONAT(C40)*1=8;MONAT(C40) *1=10;MONAT(C40)*1=12);31;WENN(UND(REST((JAHR(C40)*1);4)=0;MONAT(C40)*1=2);29;WENN(MONAT(C40)*1=2;28; 30)))
Gruß, Peter
P.S. Die Ausnahmen bei den Schaltjahren alle 100 Jahre bzw. alle 400 Jahre werden nicht richtig dargestellt.

AW: Anzahl Kalendertage im aktuellen Monat ermitteln
Mister

Danke an alle,
der Vorschlag von Peter klappt bei mir am besten.
Gruß
Martin

AW: Anzahl Kalendertage im aktuellen Monat ermitteln
AlexK

Hallo Martin,
noch kurzer
=TAG(MONATSENDE(C40;0))
Grüß Alex

AW: Anzahl Kalendertage im aktuellen Monat ermitteln
Andi

Hi,
ich wäre immer vorsichtig mit Funktionen aus Add Ins.
Wenn man die Mappe weitergibt, ist nicht gesagt, dass der Empfänger das Add In installiert hat, und die Fehlermeldung (#Name) wird ihn auch nicht auf die richtige Fährte bringen.
Da finde ich es noch besser, eine benutzerdefinierte Funktion zu schreiben, und diese in der Mappe selbst zu speichern. Dann steht sie auch jedem zur Verfügung, der die Mappe bekommt bzw verwendet.
Das gilt natürlich nicht bei Mappen, die man definitiv nr selbst verwendet.
Schönen Gruß,
Andi