Dim strError As String
Sub WorkbookAlsPdf()
'als pdf exportieren
Dim arrSonderzeichen As Variant
Dim strFile As String
Dim wb As Worksheet
Dim strPfad As String
Dim strName As String
Dim arrPDF As Variant
Dim i As Integer
Dim sep as String
sep = application.PathSeparator
Set wb = Workbooks.Add
[...] und weitere 53 Zeilen Code