Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sicherungskopie mit Dateinamen per Code

Sicherungskopie mit Dateinamen per Code
Harald
Hallo zusammen,
ich entwerfe und pflege viele Exceldateien in meiner Firma.
Deshalb möchte ich mir ein Makro einbauen in "pers. Arbeitsmappe" speichern, mit dem ich schnell eine Sicherungskopie der aktuellen Datei in einem Sammelordner speichern kann.
Beispiel: 
Sub Sicherungskopie_speichern()
ActiveWorkbook.SaveCopyAs "D:\Testordner\Testunterordner\Dateiname" & Range(" _
aktullerBenutzer").Value & Format(Now, "DD.MM.YYYY - hh.mm.ss") & " Uhr" & ".xls"
End Sub

Nun zu meiner Frage wie muss der Code lauten, damit der aktuelle Dateiname automatisch im Dateinamen der Sicherungskopie erscheint?
Vielen Dank im voraus.
Gruß, Harald
c

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sicherungskopie mit Dateinamen per Code
09.12.2010 07:07:09
Hajo_Zi
Hallo Harald,
ActiveWorkbook.Name

AW: So einfach!? Vielen Dank
09.12.2010 07:16:14
Harald
Hallo Hajo_Zi,
doch so einfach!? Vielen Dank für die schnelle Antwort.
Gruß aus Köln
Harald
nicht ganz so einfach?
09.12.2010 08:05:06
Erich
Hi zusammen,
Workbook.Name beinhaltet die Dateiendung, z. B. ".xls". Soll diese Endung im Sicherungsnamen doppelt stehen,
einmal beim alten Dateinamen und einmal ganz am Ende?
Mein Vorschlag: 

Option Explicit
Sub Sicherungskopie_speichern()
Dim strNam As String
strNam = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
ActiveWorkbook.SaveCopyAs "D:\Testordner\Testunterordner\" & _
strNam & "_" & Range("aktullerBenutzer").Value & _
Format(Now, "DD.MM.YYYY - hh.mm.ss") & " Uhr" & ".xls"
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: nicht ganz so einfach?
09.12.2010 08:26:38
Harald
Hallo Erich,
vielen Dank für deinen berechtigten Einwand und Deinen Vorschlag, welchen ich gerne umsetzen möchte.
Ich habe Deinen Lösungsvorschlag mal auf meine tatsächlichen Gegebenheiten angepaßt.
Sub Sicherungskopie_speichern()
Dim strNam As String
strNam = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
ActiveWorkbook.SaveCopyAs "F:\Sicherungskopien\Alle Dateien\" & " Sicherungskopie von " & _
strNam & "_" & Format(Now, "YYYY.DD.MM - hh.mm.ss") & " Uhr" & ".xls"
End Sub
Leider erhalte ich einen Fehlerhinweis:
Laufzeitfehler "5":
Ungültiger Prozeduraufruf oder ungültiges Argument
Weißt Du oderjemand anderes voran das liegt?
Wie muss der Code angepaßt werden?
Vielen Dank
Gruß, Harald
Anzeige
Evtl mag XL die 'Löcher' u.vielen Pkte in...
09.12.2010 09:13:50
Luc:-?
…Pfad u.Namen nicht, Harald,
so etwas machen alte EDV-Cracks einfach nicht, auch, wenn's inzwischen mögl ist. Ist eher typisch für Sekretärinnen. Ein Name ist ein Name und kein Roman. Eine Datei hat auch noch Eigenschaften, da steht das alles auch drin und wird (bei entsprechender Einstellung) im Explorer auch angezeigt. Evtl hilft da das Apostrophieren des ganzen Ausdrucks (falls nicht noch ein anderer Fehler drin steckt, den ich jetzt nicht entdecken kann)…
Gruß Luc :-?
AW: Evtl mag XL die 'Löcher' u.vielen Pkte in...
09.12.2010 10:24:44
Harald
Hallo Luc, hallo Erich,
ich werde mich bessern, was Dateipfade und -namen angeht. Danke für den Hinweis.
Aber daran scheint es nicht zu liegen, dass es noch nicht funktioniert.
Im Debugger wird der fett markierteTeil als Fehler angezeigt:
Sub Sicherungskopie_speichern2()
Dim strNam As String
   strNam = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
ActiveWorkbook.SaveCopyAs Chr(34) & _
"F:\Sicherungskopien\Alle Dateien\Sicherungskopie_" & _
strNam & "_" & Format(Now, "YYYYDDMM_hhmmss") & ".xls" & Chr(34)
End Sub

Gruß, Harald
uDer
Anzeige
noch ein Versuch
09.12.2010 11:26:43
Erich
Hi,
probier mal 

Sub Sicherungskopie_speichern3()
Dim varP, strNam As String
strNam = ActiveWorkbook.Name
varP = InStrRev(strNam, ".")
MsgBox strNam
MsgBox varP
If IsNumeric(varP) Then
If varP > 0 Then strNam = Left(strNam, varP - 1)
End If
ActiveWorkbook.SaveCopyAs _
"F:\Sicherungskopien\Alle Dateien\Sicherungskopie_" & _
strNam & "_" & Format(Now, "YYYYMMDD_hhmmss") & ".xls"
End Sub
YYYYDDMM habe ich in YYYYMMDD geändert - scheint mir praktischer und in D gebräuchlicher.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Super, jetzt funktioniert es!!!
09.12.2010 13:35:53
Harald
Vielen Dank!!!!!!!!!!!!!!!!!!!!!!!!
Gruß aus Köln
Harald
zwei Vorschläge
09.12.2010 09:33:43
Erich
Hallo Harald,
Luc kann ich da nur voll und ganz zustimmen.
Probier doch mal (ungetestet): 

Sub Sicherungskopie_speichern2()
Dim strNam As String
strNam = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
ActiveWorkbook.SaveCopyAs Chr(34) & _
"F:\Sicherungskopien\Alle Dateien\Sicherungskopie von " & _
strNam & "_" & Format(Now, "YYYY.DD.MM - hh.mm.ss") & " Uhr" & ".xls" & Chr(34)
ActiveWorkbook.SaveCopyAs Chr(34) & _
"F:\Sicherungskopien\Alle Dateien\Sicherungskopie_" & _
strNam & "_" & Format(Now, "YYYYDDMM_hhmmss") & ".xls" & Chr(34)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

300 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Platzhalter fuer Dateiname
Dirk

Hallo an alle Tüftler,
ich recherchierte schon stundenlang im Archiv nach diesem Betreff - wurde aber nicht so recht fündig.
Ich möchte Daten aus einer csv-Datei in eine xl-Mappe importieren - der Haken ist allerdings, daß der Name der csv-Datei ständig wechselt.
Aus der Bezeichnung...
19.08.2008 16:21:08
Thread-ID: 1002987
5 Beiträge
Dateinamen während Auto_Open im AddIn
Rolli

Hallo Forum,
ich hab da mal ne Frage!!
Ich würde gerne ein AddIn (Erstellt ne Symbolleiste) nur dann ausführen wollen, wenn eine bestimmte Datei (Z.B. "Test.csv") geöffnet wird.
Wenn ich aber in der Auto_Open Routine im AddIn das ActiveWorkbook abspreche gibt es dieses noch nicht. W...
22.08.2008 12:10:00
Thread-ID: 1003802
5 Beiträge
Anzeige
Dateiname anzeigen
Ralf

Liebes Excel-Forum,
ich hätte da wiedermal ein kleines Problem.
Ich möchte gerne den Dateinamen den ich über eine MSG-Box generiert habe, nachdem die Datei gespeichert wurde, in einer Zelle auf einem Arbeitsblatt angezeigt bekommen.
Wie macht man das?
Vielen Dank für die Mühe
09.09.2008 13:07:00
Thread-ID: 1008435
8 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Hallo,
habe folgenden Code im Archiv gefunden.
Nun würde ich gerne alle Dateinamen eines Ordners und sämtlichen Unterordnern auslesen.
Die Zeile Cells(iCnt, 2) = .FoundFiles.Name ist allerdings falsch. Ich weiß nicht genau, wie man sich den Namen ausgeben lässt.
Könnt ihr mir we...
18.09.2008 08:21:00
Thread-ID: 1010589
3 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Ähm, ich glaub da ging in der Darstellung meiner Frage eben was schief.
Hier nochmal der Code:
Option Explicit
Sub Daten_Loeschen() Dim fSearch As FileSearch Dim wkb As Workbook Dim strPath As String Dim iCnt As Integer Dim index As Variant strPath = "C:\Dokumente und Einstellunge...
18.09.2008 08:32:00
Thread-ID: 1010593
2 Beiträge
Alte Einträge (Dateinamen) farbig darstellen?
Selma

Hallo Leute,
ich habe in Spalte A eine Liste der Dateinamen.
Wenn vor .doc dies steht "_neu" dann soll nachgeschaut werden, ob es die Dateiname ohne "_neu" gibt,
falls ja, dann soll diese Zelle mit Füllfarbe 3 (rot) dargestellt werden.
Dies gilt nur für die Dateiendung .doc
...
21.09.2008 13:22:00
Thread-ID: 1011293
10 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
4
4
7
2
1
9
2
8
2
7
1
4
3
4
2
5
2
2
2
2
4
26