Sub AuswahlExportieren()
    Dim intI As Integer
    Dim strPfadname As String
    
    If TypeName(Selection) = "Range" Then
        For intI = 1 To Selection.Areas.Count
            strPfadname = "d:\temp\Auwahl" & CStr(intI) & ".pdf"
            Selection.Areas(intI).ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPfadname
        Next
    End If
End Sub
