Laufzeitfehler 9
14.04.2019 19:05:03
mary
habe den code für's PDF auf neues sheet angepasst und am richtigen Ort reingepackt.
Code
Sub Lieferschein_als_PDF_speichern()
Dim variable As String
variable = ThisWorkbook.Worksheets("Lieferscheine").range("f9").Text
If Dir("C:\Users\maria\Documents\Monnier\JWWW\Lieferscheine\" & range("Lieferschein!f9").Text & _
_
_
_
".pdf") = "" Then
Sheets("Lieferscheine").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\maria\Documents\Monnier\JWWW\Lieferscheine\" & range("Lieferschein!f9").Text & ".pdf", _
_
_
_
Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
openAfterPublish:=True
Sheets("Lieferscheine").Select
Else
MsgBox "Dateiname bzw. Lieferschein bereits vorhanden!"
End If
End Sub
aber jetzt erhalte ich immer einen Laufzeitfehler 9
Kann dies sein, weil dieses Sheet mit einem aufgezeichnetem Makro kopiert wurde und auch die Zelle F9 iinnerhalb des makros nochmals von anderer Zelle in F9 kam - ich kam zum schluss, dass diese Zelle aufgrund dessen nicht ausgelesen werden kann.
Habt ihr einen Lösungsvorschlag?
Vielen Dank zum voraus LG Mary
Anzeige