Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Inhaltsverzeichnis

Speichern mit VBA

Forumthread: Speichern mit VBA

Speichern mit VBA
25.07.2006 16: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 16: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 17: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 17:36:38
Leo
Hi,

Private Sub CommandButton1_Click()
Call Sicherung
End Sub

mfg Leo
AW: Speichern mit VBA
25.07.2006 18:13:41
Thorsten
Sorry, aber ich bekomme eine Fehlermeldung. Was mache ich Falsch?
Userbild
Gruß Torte
Anzeige
AW: Speichern mit VBA
25.07.2006 18: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 18: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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige