Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1132to1136
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
Inhaltsverzeichnis

Monatswechsel | Herbers Excel-Forum

Monatswechsel
03.02.2010 13:13:21
Gunter

Hallo Zusammen,
ich habe eine Tabelle die beim Monatswechsel neu angelegt wird. Für das Erkennen des Wechsels hab ich folgenden Code:
If Month(Right(ThisWorkbook.Names("oldDat").Value, 5)) < Month(Date) Then
Das hat bisher auch recht gut funktioniert, seit dem Jahreswechsel gibt es allerdings Probleme und das scheint mit dem obigen Code zusammen zu hängen. Ich verstehe diesen Code nicht wirklich und wäre daher froh, wenn mir jemand auf die Sprünge helfen könnte.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
was steht im Namen oldDat? owT
03.02.2010 13:17:09
Rudi Maintaire
AW: was steht im Namen oldDat? owT
03.02.2010 13:25:26
Gunter
40149
AW: was steht im Namen oldDat? owT
03.02.2010 13:37:17
Renee
Hi Gunter
Das kann natürlich nicht funktionieren, denn 12 ist nun mal nicht < wie 1!
Also könnte es heissen:
    If Month(ThisWorkbook.Names("oldDat").Value) < Month(Date) Or _
(Month(ThisWorkbook.Names("oldDat").Value) > Month(Date) And _
Year(Thisworkbook.Names("oldDate").Value) < Year(Date)) Then
GreetZ Renée
AW: was steht im Namen oldDat? owT
03.02.2010 13:38:48
Rudi Maintaire
Hallo,
das ist der 2.12.09. Dieser Monat ist natürlich größer als der aktuelle.
if dateserial(year(ThisWorkbook.Names("oldDat")),Month(ThisWorkbook.Names("oldDat")),1) < dateserial(year(date),Month(date),1) then
Gruß
Rudi
Anzeige
AW: was steht im Namen oldDat? owT
03.02.2010 14:39:37
Gunter
Vielen Dank euch beiden. Genau das war mein Problem in oldDat stehen die Monate vom Ende letzten Jahres.
Neues Jahr neues Glück, dank euch funzt es wieder.
Gruss
Gunter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige