Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
256to260
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsdifferenz

Datumsdifferenz
15.05.2003 19:38:50
Hans
Hallo liebe Excelgemeinde,
Ich hoffe Ihr könnt mir helfen. Folgendes Problem:

C2 : ="Du bist heute" & DATEDIF(A1;HEUTE();"y") &" Jahre "&DATEDIF(A1;HEUTE();"ym")& " Monate "&WENN(TAG(A1)<=TAG(HEUTE());TAG(HEUTE())-TAG(A1);TAG(HEUTE())+TAG(DATUM(JAHR(A1);MONAT(A1)+1;1)-1)-TAG(A1))&" und Tage alt"

Soweit so gut, aber wie bringe ich hier noch die Wochen rein und was noch wichtiger ist, wie krig ich das als makro.

Danke im Vorraus Hans

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datumsdifferenz
15.05.2003 20:03:44
Holger Levetzow
Re: Datumsdifferenz
15.05.2003 20:08:40
Hans
Danke,
aber kannst Du mir auch helfen das in s vba umzusetzen ?

Gruss Hans

Re: Datumsdifferenz
15.05.2003 20:34:08
Holger Levetzow
versuche mal folgendes:

Sub test()
datum = Range("A1")
jahr = DateDiff("yyyy", datum, Date) - 1
datum1 = DateSerial(Year(datum) + jahr, Month(datum), Day(datum))
monat = DateDiff("m", datum1, Date)
datum2 = DateSerial(Year(datum1), Month(datum) + monat, Day(datum))
wochen = DateDiff("d", datum2, Date) \ 7
tage = DateDiff("d", datum2, Date) - wochen * 7
End Sub

Du solltest aber testen, ob das mit dem Jahr immer so ist.

Holger

Re: Datumsdifferenz
15.05.2003 20:40:11
Holger Levetzow
ich habe es schnell gemacht und die erwartete Ausnahme gefunden. So müsste es immer klappen.

Sub test()
datum = Range("A1")
jahr = DateDiff("yyyy", datum, Date)
If DateSerial(Year(Date), Month(datum), Day(datum)) > Date Then jahr = jahr - 1
datum1 = DateSerial(Year(datum) + jahr, Month(datum), Day(datum))
monat = DateDiff("m", datum1, Date)
datum2 = DateSerial(Year(datum1), Month(datum) + monat, Day(datum))
wochen = DateDiff("d", datum2, Date) \ 7
Tage = DateDiff("d", datum2, Date) - wochen * 7
End Sub

Holger

Anzeige
Re: Datumsdifferenz
15.05.2003 21:06:33
Holger Levetzow
eine Ausnahme bestand noch. ich habe sie eingearbeitet.


datum = Range("A1")
jahr = DateDiff("yyyy", datum, Date)
If DateSerial(Year(Date), Month(datum), Day(datum)) > Date Then jahr = jahr - 1
datum1 = DateSerial(Year(datum) + jahr, Month(datum), Day(datum))
monat = DateDiff("m", datum1, Date)
If Day(datum1) > Day(Date) Then monat = monat - 1
datum2 = DateSerial(Year(datum1), Month(datum) + monat, Day(datum))
wochen = DateDiff("d", datum2, Date) \ 7
Tage = DateDiff("d", datum2, Date) - wochen * 7

Re: Datumsdifferenz
15.05.2003 21:26:48
Hans
Hallo Holger,

hat ein bischen länger gedauert aber besser später als nie.

Also vielen Dank echt super von Dir

Hans

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige