Mehrere Tabellenblätter zum pdf + mail
04.12.2013 16:33:15
Christina
folgende Situation:
ich habe eine Excel-Datei mit mehreren Tabellenblättern mit Filialnummern benannt.
Ich benötige ein Makro, mit dessen Hilfe automatisch die ersten zehn Tabellenblätter einzeln angewählt werden, als pdf auf einem Laufwerk mit individuellen Dateinamen abgespeichert werden und schlußendlich per email verschickt werden.
Das folgende habe ich geschrieben - bin mir aber nicht im Klaren, wie ich die notwendige Schleife einbauen kann, damit er es eben nicht nur auf dem aktuellen Tabellenblatt durchführt.
Sub pdf_speichern()
' pdf_speichern Makro
Sheets("2101").Activate
Range("B2").Select
Dim strFileName As String
strFileName = "G:\Statistik\Tagesumsätze\Umsätze 2013" & "\" & "Tagesumsatz 2101 " & _
ActiveSheet.Range("A1")
ChDir "G:\Statistik\Tagesumsätze\Umsätze 2013\"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Christina