Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Register als Kopie Speichern unter

Betrifft: Register als Kopie Speichern unter von: köbi
Geschrieben am: 20.08.2004 08:27:01

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
  


Betrifft: AW: Register als Kopie Speichern unter von: Hans W. Herber
Geschrieben am: 21.08.2004 09:00:40

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


  


Betrifft: AW: Register als Kopie Speichern unter von: köbi
Geschrieben am: 23.08.2004 09:16:34

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



 

Beiträge aus den Excel-Beispielen zum Thema "Register als Kopie Speichern unter"