Cellen leegmaken, maar niet de formules wissen

[Liesjes001]

Beste warme bakkertje

ondertussen ben ik eruit gekomen dat ik wel de schrijfrechten heb, maar nog steeds lukt het me niet om de code in te voeren. Om het uit te proberen op mijn usb heb ik het volgende geprobeerd:

Sub Gegevensoplsaan()

Dim path As String
With Sheets("VERHUURDOCUMENT")
path = "F:\"
.ExportAsFixedFormat 0, path
.Range("J2,J4,B13:B16,F18:G23,C24:C25,E27:E28,F30").ClearContents
End With
End Sub


alsook:

Sub Gegevensoplsaan()
Dim path As String
With Sheets("VERHUURDOCUMENT")
path = "F:\"& Year(Date) & "\"& "\" & Format(.Range("J2"), "yyyymmdd") & .Range("B13") & .Range("J1") & ".pdf"
.ExportAsFixedFormat 0, path
.Range("J2,J4,B13:B16,F18:G23,C24:C25,E27:E28,F30").ClearContents
End With
End Sub

F is de naam van de usb-schijf. Ik krijg nog steeds de foutmelding 1004, en dan staat .ExportAsFixedFormat 0, path in het geel.

Ligt het echt aan de pad naam, of doe ik iets verkeerd?

Mvg


Lies

 

[Warme bakkertje]

path = "F:\" & Year(Date) & "\" & Format(.Range("J2"), "yyyymmdd") & .Range("B13") & .Range("J1") & ".pdf"

En ja, het ligt echt aan de padnaam want voor de rest werkt dit perfect.(althans als ik het test)

 

[snb]

Probeer het nu eens eerst heel simpel met:

thisworkbook.ExportAsFixedFormat 0, "F:\voorbeeld.pdf"