Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Speichern unter
09.07.2018 15:57:07
Dimitri
Hallo Zusammen
Ich bin auf der Suche nach einer Möglichkeit via Button zwei Worksheets in ein bestimmtes Verzeichnis zu speichern und zwar einmal als *.xlsx und einmal als *.pdf.
Geht so was und wie muss ich da vorgehen?
Vielen Dank

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Speichern unter
09.07.2018 16:15:20
Bernd
Hi Dimitri,
du solltest vielleicht mal ab und zu den Makrorecorder benutzen!!!
Das habe ich gerade aufgezeichnet (an deine Bedürfnisse anpassen bzgl. Pfad und Dateiname)
Sub Makro2()
' aufgezeichnet von Bernd Kiehl
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Filename:="E:\MS-Excel\Mappe2.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\MS-Excel\Mappe2.pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close
End Sub
Gruß Bernd
Anzeige
AW: VBA Speichern unter
09.07.2018 16:33:34
UweD
Hallo
Bitte direkt lernen, dass man auf select in 99% verzichten kann
und vieles mit Variablen einfacher zu verwalten ist...
Bernds code mal umgeschrieben
Sub Makro2()
    Dim Pfad As String, DName As String
    
    Pfad = "E:\MS-Excel\"
    DName = "Test"
    
    With Sheets("Tabelle1")
        .Copy
        ActiveWorkbook.SaveAs Filename:=Pfad & DName & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & DName & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
        
        ActiveWorkbook.Close
    End With
End Sub

LG UweD
Anzeige

343 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige