Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
316to320
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum um 1 Monat inkrementieren

Datum um 1 Monat inkrementieren
30.09.2003 11:06:11
Alex
Hallo zusammen

habe folgendes Problem:
Ich würde gerne in einer Schleife ein Zahlungsdatum fortschreiben.
Auf das Datum des Vormonats soll genau 1 Monat draufgerechnet werden.
Das Ergebnis ist eine Liste mit z.B. 1.1.03, 1.2.03, 1.3.03 ...

Der Code sollte ungefähr so aussehen:

>For Y_Lauf = 1 To Laufzeit

> Zahlungsdatum = Zahlungsdatum + ??? 1 Monat ??? <-- weiss nicht weiter...

> ActiveSheet.Cells(Y_Start + Y_Lauf, 2).Value = Zahlungsdatum

>Next Y_Lauf

Wie kann ich die Monate inkrementieren, damit auch die JAHRE mitzählen?

Vielen Dank schonmal
Alex

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

Betreff
Datum
Anwender
Anzeige
AW: Datum um 1 Monat inkrementieren
30.09.2003 11:29:35
Panicman
Hallo Alex,

hier mal ein Ansatz


Sub Makro2()
Dim Zahlungsdatum As Date
Zahlungsdatum = Date
Zahlungsdatum = DateSerial(Year(Zahlungsdatum), Month(Zahlungsdatum) + 1, Day(Zahlungsdatum))
End Sub


Gruß
Holger
Perfekt!!! Vielen Dank!!! oT
30.09.2003 11:39:49
Alex
Bitteschön, hab gern geholfen !! o.T.
30.09.2003 11:40:58
Panicman
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige