AW: geloest
11.06.2014 07:20:47
hary
Moin Daniel
F8 Taste ist mein Freund.;-)
"Also ist es logisch, dass das PDF alles anzeigt, weil der Filter gar nicht mehr aktiv ist."
Nee, der oben genannte Code funzt. Bevor ich den Filter deaktiviere kopiere ich ja .SpecialCells(xlVisible) in ein anderes Blatt.
Ich hatte es so und anderes probiert:
Dim strPfad As String
With Cells(3, 1).CurrentRegion
.AutoFilter Field:=4, Criteria1:=""
strPfad = "C:\a\Test\" & "Bestellung_vom_" & Date
.SpecialCells(xlVisible).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad, Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
Und da hatte ich einen bloeden Gedankenfehler.
So gehts.
Dim strPfad As String
With Cells(3, 1).CurrentRegion
.AutoFilter Field:=4, Criteria1:=""
strPfad = "C:\a\Test\" & "Bestellung_vom_" & Date
Worksheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad, Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True
.AutoFilter
End With
gruss hary