title image


Smiley Re: Speichern ausschliesslich der ersten Seite einer Arbeitsmappe?
Hallo



Hier ein Auszug aus einem Programm. Dabei wird das Tabellenblatt "Eingabe" unter den Dateinamen Monat und Jahr gespeichert. Eventuell anpassen.

---------------------------------------------------------

Sub Blatt_speichern()

Dim TB              As Worksheet

Dim datName         As String

Dim ergName         As String

Dim Frage           As Byte

 

Application.ScreenUpdating = False

 

 

'Dateinamen vorgeben (Monatsname und Jahr)

 

    Set TB = ThisWorkbook.Worksheets("Eingabe")

    datName = Format(TB.[Monat], "mmmm yyyy") & ".xls"  'Datumsfeld im Tabellenblatt oder

'datNmae = "Jänner 2002"

 

'"Datei speichern"-Dialog mit vorgegebenen Dateinamen

    ergName = Application.GetSaveAsFilename(datName, "Excel Datei (*.xls), *.xls", , _

            "Monatskopie speichern")

 

'Prüfen ob Datei unter diesem Namen schon existiert

    If Dir(ergName) <> "" Then

        Frage = MsgBox("Die Datei " & ergName & _

        " existiert schon! Überschreiben?", vbYesNo)

        If Frage = vbNo Then Exit Sub

    End If

'Kopie des Monatsblattes (in diesem Beispiel Blatt "Eingabe") speichern

 

    Application.DisplayAlerts = False

        ActiveSheet.Copy

        ActiveWorkbook.SaveAs ergName

        ActiveWorkbook.Close savechanges:=False

 

        MsgBox "Das Blatt wurde unter " & ergName & "  gespeichert!"

    Application.DisplayAlerts = True

End Sub



---------------------------------------------------------



mfg, GraFri

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: