Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitsblatt in neuer Arbeitsmappe speichern

Arbeitsblatt in neuer Arbeitsmappe speichern
14.07.2008 10:45:49
Alex
Hallo,
habe diverse Code-Beispiele hier aus dem Forum ausprobiert aber es funktioniert nicht so wie gewünscht.
Ich möchte per Schaltfläche das einzig vorhandene Arbeitsblatt in eine neue Arbeitsmappe auf einem vorgegebenen Pfad speichern. Das dies mit dem SaveCopyAs Befehl gemacht werden soll habe ich herausgefunden. Denoch springt Excel immer in die soeben gespeicherte Kopie und bleibt nicht im Original.
Ich mache das um die im Original vorhandenen UserForm und VBA Code nicht in der Kopie zu speichern.
folgenden Code verwende ich:
If Len(DIR("c:\sicherung", vbDirectory)) Then 'Prüfe ob Verzeichniss vorhanden
ChDir "c:\sicherung" 'Wenn ja wechsle ins Verzeichnis
Else 'wenn Nein
MkDir "c:\sicherung" 'erstelle Verzeichnis
ChDir "c:\sicherung" 'wechsle ins erstellte Verzeichnis
End If
'Worksheets("data").Copy
'ActiveWorkbook.SaveAs "C:\sicherung\"
'ActiveWorkbook.Close False
Dim Original As String
Dim Kopie As String
Dim t As Integer
'Original = ActiveWorkbook.name
'Kopie = ActiveWorkbook.name & "_Kopie.xls"
'Workbooks.Add
Worksheets("data").Copy
ActiveWorkbook.SaveCopyAs _
Filename:="C:\sicherung\" & Kopie
Workbooks(Original).Activate
End Sub
Ganz besonders toll wären anstatt _Kopie.xls das aktuelle Datum & Zeit.xls
Bin für Vorschläge offen
Grüsse Alex

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

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt in neuer Arbeitsmappe speichern
14.07.2008 11:32:00
Rudi
Hallo,
so sollte es gehen:

Sub tt()
Dim Original As String
Dim Kopie As String
Dim t As Integer
If Len(Dir("c:\sicherung", vbDirectory)) = 0 Then 'Prüfe ob Verzeichniss vorhanden
MkDir "c:\sicherung" 'erstelle Verzeichnis
End If
Worksheets("data").Copy
ActiveWorkbook.SaveAs "C:\sicherung\" _
& Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) _
& "_" & Format(Now, "YYYYMMDDhhmmss") & ".xls"
ActiveWorkbook.Close False
End Sub


Gruß
Rudi

AW: Arbeitsblatt in neuer Arbeitsmappe speichern
15.07.2008 20:46:00
Alex
Hallo,
danke es funktioniert!
Grüsse Alex
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige