Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherheitskopie erstellen

Forumthread: Sicherheitskopie erstellen

Sicherheitskopie erstellen
12.09.2005 12:57:40
andi
Hallo,
warum läuft folgender Code nicht?

Sub sicherheitskopie()
Dim fName As String
fName = (Time & "_" & ThisWorkbook.name)
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & fName
End Sub

Möchte eine Sicherheitskopie erstellen.
Danke für jede Hilfe.
Gruß Andi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sicherheitskopie erstellen
12.09.2005 13:06:23
Uduuh
Hallo,
.Path enthält nicht den letzten \
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path &"\" &fName
Gruß aus’m Pott
Udo

AW: Sicherheitskopie erstellen
12.09.2005 13:21:11
andi
Hi,
danke, bekomme aber immer noch Laufzeitfehler 1004: Datei wurde nicht gefunden.."?
Die Datei (Time & "_" & ThisWorkbook.name) möchte ich doch erst erstellen...
Was muss ich ändern. Hier nochmals der Code:

Sub sicherheitskopie()
Dim fName As String
fName = Time & "_" & ThisWorkbook.name
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & fName
End Sub

Gruß Andi
Anzeige
AW: Sicherheitskopie erstellen
12.09.2005 13:43:48
u_
Hallo,
schon mal versucht 'nen Dateinamen mit : zu erstellen?
Gruß
Geist ist geil!
AW: Sicherheitskopie erstellen
12.09.2005 14:01:52
andi
Hi,
folgendes läuft jetzt:

Sub sicherheitskopie()
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\SK\SK" & "-" & Date & ".xls"
End Sub

Der Fehler lag wohl an Time... Ich brauche aber etwas um an einem Tag mehrere SK's machen zu können.
Hat jemand eine Idee?
Gruß Andi
Anzeige
AW: Sicherheitskopie erstellen
12.09.2005 14:25:58
u_
Hallo,

Sub sicherheitskopie()
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\SK\SK" & "-" & Format (Now,"YYMMDD_hhmmss" & ".xls"
End Sub

Gruß
Geist ist geil!
danke
12.09.2005 14:35:09
andi
passt!
;

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