Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1568to1572
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
Ausgewählte TB als xlsm und pdf speichern
23.07.2017 09:48:46
Sigi
Hallo,
ich wähle über eine UF.Listbox Tabellenblätter aus die ich dann unter einen neuen Namen speichern möchte.
Die xlsm Datei wird erstellt nur bei der pdf Datei gibt es Probleme mit der Meldung das es kein pdf Dateiformat ist.
Wo liegt der Fehler?
Danke!
LG, Sigi
Private Sub cmdOK_Click()
Dim arr() As String
Dim iRow As Integer, iCounter As Integer
Dim sPath As String
Dim sFilepdf As String, sFilexlsm As String
Application.ScreenUpdating = False
sPath = TextBox1.Text & "\"
sFilexlsm = TextBox2.Text & TextBox3.Text & ".xlsm"
sFilepdf = TextBox2.Text & TextBox3.Text & ".pdf"
For iRow = 0 To lstSheets.ListCount - 1
If lstSheets.Selected(iRow) Then
iCounter = iCounter + 1
ReDim Preserve arr(1 To iCounter)
arr(iCounter) = Worksheets(lstSheets.List(iRow)).Name
End If
Next iRow
Worksheets(arr).Copy
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs sPath & sFilexlsm, FileFormat:=xlOpenXMLWorkbookMacroEnabled,  _
CreateBackup:=False
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPath & sFilepdf, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.DisplayAlerts = True
.Close savechanges:=False
End With
Application.ScreenUpdating = True
Unload Me
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erledigt
23.07.2017 12:35:13
Sigi
.
Anzeige

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige