Sicherungskopie anlegen aus anderer Datei

Sub Kopie() With Workbooks("Daten.xlsx") xPfad = ActiveWorkbook.Path 'Wohin speichern? xDateiNam = "Daten_pur.xlsx" Sheets(Array("Hallo", "Bier", "Milch")).Copy Application.DisplayAlerts = False .SaveAs Filename:=xPfad & xDateiNam Application.DisplayAlerts = True ActiveWindow.Close End With Application.Quit End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopie() With Workbooks("Daten.xlsx") xPfad = ActiveWorkbook.Path 'Wohin speichern? xDateiNam = "Daten_pur.xlsx" Sheets(Array("Hallo", "Bier", "Milch")).Copy Application.DisplayAlerts = False .SaveAs Filename:=xPfad & Application.PathSeparator & xDateiNam, FileFormat:=51 Application.DisplayAlerts = True ActiveWindow.Close End With Application.Quit 'gefährlich - damit werden sämtliche weiteren Makros abgebrochen und Excel _ Beendet End Sub

Hallo Thorben,
scheinbar gibt es noch Arbeitsmappe mit geänderten Daten, wenn der Befehl Application.Quit ausgeführt werden soll.
Beim genauen Lesen/Testen des Codes hab ich festgestellt, dass nicht die kopierten 3 Blätter unter Daten_pur.xlsx gespeichert werden, sondern die Datei Daten.xlsx.
Nachfolgend der korrigierte Code, der neue Datei mit den kopierten Blättern als Daten_pur.xlsx speichern.
Du muss dann noch genau festlegen, was mit Daten.xlsx passieren soll bevor Excel Beendet wird.
Im Moment prüft der Code, ob die Datei gespeichert ist, wenn nein, dann wird sie vor dem Schließen gespeichert.
Gruß
Franz

Sub Kopie()
Dim wkbDaten As Workbook, xPfad, xDateiNam
Dim wkbCopy As Workbook
Set wkbDaten = Workbooks("Daten.xlsx")
With wkbDaten
xPfad = ActiveWorkbook.Path 'Wohin speichern?
xDateiNam = "Daten_pur.xlsx"
.Sheets(Array("Hallo", "Bier", "Milch")).Copy
Set wkbCopy = ActiveWorkbook
Application.DisplayAlerts = False
wkbCopy.SaveAs Filename:=xPfad & Application.PathSeparator & xDateiNam, FileFormat:=51
Application.DisplayAlerts = True
wkbCopy.Close savechanges:=False
If .Saved = False Then
.Close savechanges:=True  '?
Else
.Close
End If
End With
Application.Quit  'gefährlich - damit werden sämtliche weiteren Makros abgebrochen und Excel  _
_
Beendet
End Sub

Beliebteste Forumthreads (12 Monate)

Sicherungskopie anlegen aus anderer Datei

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sicherungskopie anlegen aus anderer Datei

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread