Funktion zu meiner Frage:

Option Explicit

Public Sub PDF_erstellen()

 'aus allen Arbeitsblättern einzelne PDF-Dateien erzeugen

    Dim wksSheet As Workshee

    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