Anzeige
Archiv - Navigation
1000to1004
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
Inhaltsverzeichnis

VB - Speichern - akt.woche.xls

VB - Speichern - akt.woche.xls
22.08.2008 14:59:34
Andi
Hallo Experten,
Ich steh mal wieder an und wär dankbar wenn Ihr mir weiterhelfen könntet. Und zwar versuch ich eine Excel-datei unter der aktuellen Woche abzuspeichern. (z.b. Woche33.xls). Die Wochenzahl sollte automatisch generiert werden.
Ich hab diesen Befehl mit dem aktuellen Datum rausgefunden, kann die Woche jedoch nicht einfügen. Beim Datum würds folgendermassen aussehen.
datumjetzt = Now
t = Mid(datumjetzt, 1, 2)
m = Mid(datumjetzt, 4, 2)
j = Mid(datumjetzt, 7, 4)
FullName = ActiveSheet.Name
lenght = Len(FullName) - 4
cuttedName = Mid(FullName, 1, lenght)
Danke für Eure Hilfe, sonnige Grüsse Andi

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

Betreff
Datum
Anwender
Anzeige
AW: VB - Speichern - akt.woche.xls
22.08.2008 15:05:00
Rudi
Hallo,

Sub tt()
Dim DINKW, tmp
tmp = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
DINKW = ((Date - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
ActiveWorkbook.SaveAs "Woche" & DINKW, vbNormal
End Sub


Gruß
Rudi

KW
22.08.2008 15:06:00
Backowe
Hi Andi,
probiere es mal so:
VBA-Code:
Sub DateiSpeichern()
ActiveWorkbook.SaveAs "C:\Woche" & KW(Date) & ".xls"
End Sub
Function KW(Datum As Date) As Integer
'Berechnung der Kalenderwoche
Dim Tag As Long
Tag = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
KW = (Datum - Tag - 3 + (Weekday(Tag) + 1) Mod 7) \ 7 + 1
End Function
Gruß Jürgen

Anzeige
AW: KW
22.08.2008 15:16:00
Andi
Ihr seid super!!!!!
Danke vielmals und schönes Wochenende
Gruss aus Wien

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige