Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1480to1484
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

Sicherung in Ordner

Sicherung in Ordner
06.03.2016 13:31:08
chris58
Hallo !
Ich habe den u.a. code für die Sicherung eines Tabellenblattes. Ich möchte jedoch das Tabellenblatt in den Ordner "C:Waren\Sicherung jedoch will ich selber einen Namen für die Soeicherung vergeben können.
Ersuche um Hilfe, was ich ändern muß, um dies zu erreichen.
Danke
Sub TestSpeichern()
Dim xdatei As String, yDatei As String, Pfad As String
xdatei = ThisWorkbook.Name
Pfad = ThisWorkbook.Path & "\"
yDatei = "Sicherung\Waren " & Format(Date, "dd.mm.yyyy") & ".xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Aufbereitung").Copy
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
ActiveWorkbook.SaveAs Filename:=Pfad & yDatei, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
Windows(xdatei).Activate
Application.ScreenUpdating = True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sicherung in Ordner
06.03.2016 15:11:11
chris58
Hallo !
ich habe es selbst gelöst.....
Danke für´s lesen
chris

vergiß nicht..
06.03.2016 20:01:00
Michael
Hi Chris,
das display alerts wieder einzuschalten...
Gruß,
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige