Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1276to1280
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

Aus Datum nur Jahr ändern

Aus Datum nur Jahr ändern
Karsten
Hallo liebe Excel Freunde,
ich habe eine Liste mit Datumseinträgen in folgendem Format: DD.MM.YYYY.
Es handelt sich um Grenzen für die Auswertung von Betriebsjahren. (z.B. aktuelle Grenze ist heute der 28.08.2012). Wenn das neue Betriebsjahr beginnt, soll es also bis zum 28.08.2013 laufen. Es wäre nun nicht richtig in einem Macro 365 Tage darauf zu adieren weil es ja Schaltjahre gibt. Gibt es eine Möglich keit in einem Datumsformat einfach nur das Jahr um Faktor 1 zu erhöhen?
~
...
Do Until ActiveCell.Offset(0, 0) = ""
TOC = ActiveCell.Offset(0, 0).Value
ActiveCell.Offset(1, 0).Select
differenz = (StartMonat - TOC) / 365
If differenz >= 0 And differenz startfinancialyear = TOC + 0
endfinancialyear = TOC + 365
ActiveCell.Offset(-1, 1) = startfinancialyear
ActiveCell.Offset(-1, 2) = endfinancialyear
Else
...
Loop
~
Danke im Vorraus!
Karsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Aus Datum nur Jahr ändern
28.08.2012 14:38:09
Rudi
Hallo,
endfinancialyear = DateSerial(Year(TOC ) + 1, Month(TOC), Day(TOC))
Gruß
Rudi

AW: Aus Datum nur Jahr ändern
28.08.2012 15:49:38
Karsten
Hallo Rudi,
Danke für die schnelle Hilfe!
Karsten

AW: Aus Datum nur Jahr ändern
28.08.2012 14:38:34
UweD
Hallo
so in der Art
Sub Datum_neu()
Dim Alt, Neu As Date
Alt = "12.08.2012"
Neu = DateSerial(Year(Alt) + 1, Month(Alt), Day(Alt))
MsgBox Neu
End Sub
Gruß UweD

AW: Aus Datum nur Jahr ändern
28.08.2012 14:45:13
Karsten
Hi Uwe,
danke, sieht gut und einfach aus!
Danke!
Karsten
Anzeige

115 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige