18.07.2012

Jedes Tabellenblatt als extra PDF speichern

Frage: Alle Tabellenblätter einer Datei sollen als PDF gespeichert werden. Die PDF-Dateien bekommen den Namen der Exceldatei plus den jeweiligen Tabellenblattnamen. Funktioniert ab Office 2007 (mit installiertem Plugin "speichern unter PDF oder XPS") bzw. mit Office 2010.

Option Explicit
Public Sub Main()
    Dim wksSheet As Worksheet
    On Error GoTo Fin
    With ThisWorkbook
        For Each wksSheet In .Worksheets
            wksSheet.ExportAsFixedFormat 0, .Path & _
                "\" & fncEXT(.Name) & "_" & wksSheet.Name
        Next wksSheet
    End With
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub
Function fncEXT(ByVal strName As String) As String
    fncEXT = Mid(strName, 1, InStr(strName, ".") - 1)
End Function

Formeln auf einer UserForm in einer TextBox darstellen...

Formeln auf einer UserForm in einer TextBox anzeigen. Z. B. "Formula", "FormulaLocal"... und wie muss die Formel in VBA ...