SaveAS Fehler

Hallo zusammen,
ich habe ein Fehler den ich mir nicht erklären kann.
Private Sub CommandButton2_Click()
Dim tabname As String
tabname = Sheets(1).Range("H4").Value
ChDir "L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen\280_10_02_Checkliste\Checkliste_XLS"
ActiveWorkbook.SaveAs Filename:="L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen\280_10_02_Checkliste\Checkliste_XLS\" & tabname & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Speichert Excel-VPA im Verzeichnis L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen\280_10_02_Checkliste\Checkliste_XLS\
ChDir "L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen\280_10_02_Checkliste\Checkliste_XLS"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen\280_10_02_Checkliste\Checkliste_XLS\" & tabname & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'Speichert PDF-VPA im Verzeichnis L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen\280_10_02_Checkliste\Checkliste_PDF\
Fehlermeldung:
Userbild

Du hast ohnehin zuviel Code drin. Der Makrorekorder ist keine gute Idee. ;-)
Das Problem könnte auch an "CHDir" liegen, da fehlt ein Backslash am Ende.

Private Sub CommandButton2_Click()

Dim strPath As String
Dim strName As String
 
 strPath = "L:\Verpackungsplanung\280_VPTA Zeiten\280_10_VPTA_Listen" & _
           "\280_10_02_Checkliste\Checkliste_XLS\"
          
 strName = Sheets(1).Range("H4").Value
 
 
 With ActiveWorkbook
     .SaveAs Filename:=strPath & strName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
     .ExportAsFixedFormat Type:=xlTypePDF, _
                          Filename:=strPath & strName & ".pdf", _
                          Quality:=xlQualityStandard, _
                          IncludeDocProperties:=True, _
                          IgnorePrintAreas:=False, _
                          OpenAfterPublish:=False
 End With
 
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Forumthread: SaveAS Fehler

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

SaveAS Fehler

Forumthread: SaveAS Fehler

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread