Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Speichern mit VBA

Forumthread: Speichern mit VBA

Speichern mit VBA
25.07.2006 18:26:27
Thorsten
Hallo an alle Ecxelprofis und die es noch werden wollen,
habe eine kleine Frage:
Dieses Makro Speichert die Tabelle mit Datum ab, alles soweit gut.
Dieses habe ich hier im Forum gefunden:

Sub Sicherung()
Dim strFileName As String
strFileName = "Plan" & Format(Now, "dd.mm.yyyy") & ".xls"
ThisWorkbook.SaveCopyAs Filename:=strFileName
End Sub

Kann man dies auch mit der Kalenderwoche machen, so das KW_1_2006 gespeichert wird, immer Ausgerichtet nach dem Tagesdatum
Währe für jede Hilfe dankbar.
Gruß Torte
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern mit VBA
25.07.2006 18:57:39
Ingo
Passt nicht um den Jahreswechsel, wenn die Kalemderwoche von einem jahr ins nächste hineinragt:

Sub Sicherung()
Dim strFileName As String
strFileName = "Plan" & DINWeek(Now) & "_" & Year(Now) & ".xls"
ThisWorkbook.SaveCopyAs Filename:=strFileName
End Sub



Function DINWeek(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1)
DINWeek = (dat - dbl - 3 + (Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function

mfG
Ingo Christiansen
Anzeige
AW: Speichern mit VBA
25.07.2006 19:24:04
Thorsten
Ich danke dir, das habe ich jetzt verstanden nur wie bekomme ich das auf einen Commandbutton?
Gruß Torte
AW: Speichern mit VBA
25.07.2006 19:36:38
Leo
Hi,

Private Sub CommandButton1_Click()
Call Sicherung
End Sub

mfg Leo
AW: Speichern mit VBA
25.07.2006 20:13:41
Thorsten
Sorry, aber ich bekomme eine Fehlermeldung. Was mache ich Falsch?
Userbild
Gruß Torte
Anzeige
AW: Speichern mit VBA
25.07.2006 20:18:16
Leo
Hi,
die Function muss in ein Modul, nicht ins Tabellenmodul! Das Makro Sicherung
ist ja vorhanden, oder?
mfg Leo
AW: Speichern mit VBA
25.07.2006 20:43:23
Thorsten
Ach ja, war wohl ein wenig neben der Mütze,
Habe es hin bekommen, ich danke dir Leo und allen anderen Helfern,
Gruß Torte
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum