Anzeige
Archiv - Navigation
1576to1580
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

Kopie ohne Makro speichern

Kopie ohne Makro speichern
25.08.2017 11:47:05
Hartmut_M
Hallo, ich möchte gerne eine Kopie der aktuellen Datei ohne Makros speichern.
Nutze diesen Code:
Me.SaveCopyAs Filename:="I:\Telefon\" & Format(Now, "yyyymmdd_hhnn_ss_") & Environ("UserName") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Erhalte die Fehlermeldung: Fehler beim Kompilieren
Benanntes Argument nicht gefunden
Was mache ich falsch?
Gruß Hartmut

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

Betreff
Datum
Anwender
Anzeige
AW: Kopie ohne Makro speichern
25.08.2017 11:49:08
yummi
Hallo Hartmut,
nimm mal anstatt Me ThisWorkbook
Gruß
yummi
AW: Kopie ohne Makro speichern
25.08.2017 12:07:24
Hartmut_M
Hallo Yummi, da kommt die gleiche Meldung. :-(
AW: Kopie ohne Makro speichern
25.08.2017 12:09:12
yummi
dann stell mal bitte deine datei ein
AW: Kopie ohne Makro speichern
25.08.2017 12:08:58
Rudi
Hallo,
SaveCopyAs unterstützt das Argument 'FileFormat' nicht.
Musst du mit SaveAs machen
btw: Format(Now, "YYYYMMDD_hhmm_ss_")
Gruß
Rudi
AW: Kopie ohne Makro speichern
25.08.2017 12:21:05
Rudi
Hallo,
so sollte das gehen:
Sub SpeichernOhneMakros()
Dim vArr(), i As Integer
ReDim vArr(1 To Sheets.Count)
'Blätter sammeln
For i = 1 To Sheets.Count
vArr(i) = Sheets(i).Name
Next
Sheets(vArr).Copy   'Blätter in neues Workbook kopieren
With ActiveWorkbook 'speichern und schließen
.SaveAs _
Filename:="I:\Telefon\" & Format(Now, "YYYYMMDD_hhmmss_") & Environ("UserName"), _
FileFormat:=xlOpenXMLWorkbook
.Close
End With
End Sub

Gruß
Rudi
Anzeige
AW: Kopie ohne Makro speichern
25.08.2017 12:27:56
Hartmut_M
Hallo, vielen Dank für eure Hilfe.
Mit Rudis Tipps funktioniert es.
Gruß Hartmut

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige