Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
23.04.2024 14:47:39
23.04.2024 14:23:45
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Monatsende

Monatsende
12.05.2005 18:06:53
Bodo
Bei folgendem Code zum Bestimmen des Monatsendedatums bekomme ich den Fehlerhinweis , dass die Funktion nicht definiert sei (Monatsende). Das Analyse-AddIn ist aktiviert.
Als konkrete Formel in einer Zelle funktioniert das auch.
With Selection
.Value = DateSerial(Year(dte), Month(dte), Day(Monatsende(dte, 0)))
End With
(Selection enthält ein vorher in dte abgelegtes Datum)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Monatsende
12.05.2005 19:08:54
Fred
With Selection
.Value = DateSerial(Year(dte), Month(dte), Day(Application.Monatsende(dte, 0)))
End With
mfg Fred
AW: Monatsende
12.05.2005 19:45:14
Bodo
Danke
AW: Monatsende
12.05.2005 19:47:16
Erich
Hallo Bodo,
es geht einfacher ohne die WorksheetFunction (und ohne das AddIn "Analysefunktionen") mit
Selection = DateSerial(Year(dte), Month(dte) + 1, 0)
oder
Selection.Value = DateSerial(Year(dte), Month(dte) + 1, 0)
Berechnet wird hier der Monatsletzte als "nullter Tag" des nächsten Monats.
(Wenn da nicht noch mehr drinsteht, braucht die With-Klammer nur unnötig Platz.)
Grüße
Erich

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige