Microsoft Excel

Herbers Excel/VBA-Archiv

Datum einsetzen

    Betrifft: Datum einsetzen von: Heiko F.
    Geschrieben am: 29.08.2003 07:45:36

    Hallo Excelfreunde ,



    habe folgendes Modulteil



    ActiveWorkbook.SaveAs Filename:= _
    "C:\Datenauswertungen\Datenauswertung 2003\auswertungen\gl\08.xls" _
    , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close

    Nun meine Frage,
    als Dateinamen soll (hier 08.xls) immer der Monatsname als Zahl des letzten Monats genommen werden.
    Das Modul läuft am 2.9.03 --> 08.xls
    Das Modul läuft am 2.10.03 --> 09.xls

    Ich hoffe , ihr habt mich verstanden.
    Schon mal
    Vielen Dank!

    Heiko

      


    Betrifft: AW: Datum einsetzen von: KViertel
    Geschrieben am: 29.08.2003 08:00:23

    Hallo Heiko,

    "Format(Month(Now()) - 1, "00")" sollte die Lösung deines Problems sein.

    MfG. Klaus


      


    Betrifft: AW: Datum einsetzen von: Heiko F.
    Geschrieben am: 29.08.2003 08:08:36

    Danke ,

    und wie setze ich das ein?

    Heiko


      


    Betrifft: AW: Datum einsetzen von: KViertel
    Geschrieben am: 30.08.2003 20:06:04

    Hallo Heiko,

    ActiveWorkbook.SaveAs Filename:= _
    "C:\Datenauswertungen\Datenauswertung 2003\auswertungen\gl\" & Format(Month(Now()) - 1, "00") & ".xls" _
    , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close


      


    Betrifft: danke ich versuchs morgen o.T. von: Heiko F.
    Geschrieben am: 30.08.2003 21:45:40

    o.t.


      


    Betrifft: AW: Datum einsetzen von: Heiko F.
    Geschrieben am: 01.09.2003 15:18:08

    Vielen Dank , es geht super!

    Heiko


     

    Beiträge aus den Excel-Beispielen zum Thema " Datum einsetzen"