Datei Save As aber!

Bild

Betrifft: Datei Save As aber!
von: marc
Geschrieben am: 19.02.2005 15:53:36
hallo zusammen,
1x woechentlich moechte ich eine Datei "Liste_KW_00.xls" als "Liste_KW_01.xls"
speichern.Immer wen es gespeichert wird muss die neugespeicherte Datei
die nicht aktuelle sondern die letzte Kalenderwoche als Endung haben.
z.B: jetzt haben wir Kalenderwoche - 7,wenn ich die Datei "Liste_KW_00.xls"
am Montag den 21.02.2005 als neu speichern werde, dann (am Montag ist KW-8)
als "Liste_KW_07.xls". Das ganze soll bis Kalenderwoche 52 laufen.
Ist es moeglich die standard Aufgabe via VBA zu automatisieren?
wenn ja,dann bitte ich um Hilfe.
-
marc :o)

Bild

Betrifft: AW: Datei Save As aber!
von: Josef Ehrensberger
Geschrieben am: 19.02.2005 15:59:24
Hallo Marc!
Sollte reichen!

Option Explicit
Function DINKwoche(ByVal Datum As Date) As Integer
    Dim tmp As Date
    tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
    DINKwoche = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function
Sub speichernNachKW()
Dim sName As String
Dim kw As Integer
kw = DINKwoche(Date) - 1
sName = "Liste_KW_" & Format(kw, "00") & ".xls"
ThisWorkbook.SaveAs sName
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: kleine Korrektur!
von: Josef Ehrensberger
Geschrieben am: 19.02.2005 16:05:19
Hallo Marc!
Ändere die Zeile

kw = DINKwoche(Date) - 1

um in

kw = DINKwoche(Date - 7)

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: an Josef
von: marc
Geschrieben am: 19.02.2005 18:38:10
hallo Josef,
fuer die VBA-Hilfe und deiner Muehe moechte ich mich bei Dir bedanken. :o))
-
marc
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Verschiedene Zahlen "