Dim strError As String
Sub BlattAlsPdf()
'als pdf exportieren
Dim arrSonderzeichen As Variant
Dim strFile As String
Dim ws As Worksheet
Dim strPfad As String
Dim strName As String
Dim sep as String
sep = application.PathSeparator
strPfad = ThisWorkbook.Path & sep
[...] und weitere 45 Zeilen Code