Datum um 1 Monat inkrementieren

Bild

Betrifft: Datum um 1 Monat inkrementieren
von: Alex
Geschrieben am: 30.09.2003 11:06:11

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

Bild


Betrifft: AW: Datum um 1 Monat inkrementieren
von: Panicman
Geschrieben am: 30.09.2003 11:29:35

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


Bild


Betrifft: Perfekt!!! Vielen Dank!!! oT
von: Alex
Geschrieben am: 30.09.2003 11:39:49




Bild


Betrifft: Bitteschön, hab gern geholfen !! o.T.
von: Panicman
Geschrieben am: 30.09.2003 11:40:58




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Werte aus einer Spalte finden"