Code in PERSONL ausgeführt
27.02.2018 10:01:11
U.
der folgende Code soll alle Tabellenblätter einer Mappe unter einem definiertem Pfad als pdf-Dokument ausgeben. Das Makro wird über einen Button in einem gesondert angelegten Menü (Menüband) aus der PERSONL angefordert, bzw. ausgeführt. Bei allen anderen so hinterlegten Makros funktioniert die Prozedur; nur hier wird der Code nicht in der geöffneten Datei ausgeführt, sondern direkt in der PERSONL. (d.h. im angebenen Speicherpfad wird die Tabelle 1 aus der PERSONL angelegt)
Was ist falsch? Vielen Dank schon mal für eure Hilfe.
'erstellt für jedes Tabellenblatt ein eigenes PDF und legt es auf dem Desktop ab
Sub Main()
Workbooks("Einschreiben_Quelle.xlsx").Activate
Const strPfad As String = "H:\Transfer\OLG\ES Belege Gerichte\Ablage"
Dim wksSheet As Worksheet
On Error GoTo Fin
With ThisWorkbook
For Each wksSheet In .Worksheets
wksSheet.ExportAsFixedFormat 0, strPfad & _
"\" & 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