Microsoft Excel

Herbers Excel/VBA-Archiv

Datum um 1 Monat inkrementieren

    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

      


    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


      


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




      


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