Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Das Update ist abgeschlossen, Ihr könnt unser Forum jetzt wieder wie gewohnt nutzen. Eventuelle Bugs und Auffälligkeiten postet Ihr bitte im entsprechenden Forum im Bereich Forumstechnik. x


Tage von einem Monat mittels VBA zählen
#1
Hallo!

Ich möchte mittels VBA die Tage von einem bestimmten Monat zählen.
In Zelle A3 habe ich z.B. folgendes Datum stehen: 01.10.2022
Nun möchte, dass in Zelle B3 die Anzahl der Tage steht, nämlich 31.
Die normale Excel Formel "=TAG(DATUM(JAHR(A3);MONAT(A3)+1;1)-1)" habe ich zwar zusammen bekommen, aber ich würde sie gerne mittels VBA lösen.

Ich hoffe, dass mir jemand helfen kann.

LG
Thomas
Excel Version 2016
Antworten Top
#2
Hallo,

VBA halte ich hier für ein wenig überdimensioniert. Probiere es doch mal mit =Anzahl().
Gruß

Stoffo
Antworten Top
#3
ich hätte es aber trotzdem gerne mittels VBA gelöst
Excel Version 2016
Antworten Top
#4
Hallo,

meist Du so?
Code:
Day(DateSerial(Year(Range("A3").Value), Month(Range("A3").Value) + 1, 0))

oder Du verwendest die Excel-Funktion MONATSENDE:
Code:
Day(WorksheetFunction.EoMonth(Range("A3").Value, 0))
Gruß
Michael
Antworten Top
#5
hallo, ja genauso habe ich mir das vorgestellt, danke sehr
Excel Version 2016
Antworten Top
#6
Als UDF:

Code:
Function F_snb(y)
  F_snb = Day(DateAdd("m", 1, y) - 1)
End Function
In B1

PHP-Code:
=F_snb(A1
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#7
Hallo snb,

wenn aber nicht der Monatserste übergeben wird, kommt ein falscher Wert heraus. Ich vermute aber, dass genau das nicht immer der Fall ist ...
Gruß
Michael
Antworten Top
#8
Keine Ahnung.
Hat der TS nicht detailliert.
Ich habe nur die Information der TS benützt.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste