Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Register als Kopie Speichern unter

Register als Kopie Speichern unter
20.08.2004 08:27:01
köbi
Hi und guete Morge @lli
Habe schon wieder ein anliegen. Möchte ein Register aus einer Arbeitsmappe mit einem Makro zwingend speichern. Dies sollte Monat für Monat geschehen.
Wie heisst der Code?

Sub speich_unter()
Sheets("Wochenplan").Select
Sheets("Wochenplan").Copy
ChDir "C:\EigeneDateien\priv"
ActiveWorkbook.SaveAs Filename:="C:\EigeneDateien\priv\APokt04.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Mega Dank für Lösungen
Grüessli us der Schwyz
Köbi

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

Betreff
Datum
Anwender
Anzeige
AW: Register als Kopie Speichern unter
21.08.2004 09:00:40
Hans W. Herber
Hallo Köbi,
wie folgt:

Sub MonatSpeichern()
Dim sFile As String
Application.ScreenUpdating = False
sFile = "APokt" & Format(Date, "mm")
Worksheets(sFile).Copy
ActiveWorkbook.SaveAs "c:\temp\" & sFile & ".xls"
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

gruss hans
AW: Register als Kopie Speichern unter
23.08.2004 09:16:34
köbi
hi Hans
funzt nicht, evtl. weil das zu speichernde Register "Wochenplan" heisst?
Fehler bei Zeile "Worksheets(sFile).Copy"
habe eine solche lösung gefunden:

Sub speich_unter()
Sheets("Wochenplan").Select
Sheets("Wochenplan").Copy
ChDir "c:\Eigene Dateien\wolfis\Wochenplaene"
a = InputBox("Speichernamen" & Chr$(13) & Chr$(10) & Chr$(10) & _
"04 (JAHR) 10 (Monat)" & Chr$(13) & Chr$(10) & Chr$(10) & "Jahr und Monat in Ziffern" _
& Chr$(13) & Chr$(10) & Chr$(10) & "Speicherort C:\EigeneDateien\Wolfis\Wochenplaene" _
, "Name eingeben", "")
ActiveWorkbook.SaveAs Filename:=a, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Vielen Dank
Köbi

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige