|
Guten Tag,
ich habe gerade ein wenig Probleme damit, meine intelligente Tabelle als PDF zu exportieren.
1. Ich bekomme meinen Datenbereich nicht korrekt angesprochen. Die intelligente Tabelle geht von den Spalten B bis T. die Zeilen verändern sich, je nachdem wieviel Einträge man hat bei jedem Exportieren. Es muss also die letzte Zeile mit Werten ermittelt werden (Das habe ich wie ihr im unten stehenden Code seht schon gemacht).
2. Mir macht es beim Dateinamen immer einen zusätzlichen Punkt. Also wenn ich im Explorer den Dateiname Test eingebe speichert es mir die Datei als Test..Pdf ab.
Anbei mein Code:
Sub Warenkorb_Exportieren()
Dim Datei As Variant
tb_Warenkorb.Activate
Dim letzteZeile As Long
letzteZeile = tb_Warenkorb.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Formatieren
ActiveSheet.PageSetup.Orientation = 1
ActiveSheet.PageSetup.Zoom = False
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
' Tabelle als PDF Exportieren
Datei = Application.GetSaveAsFilename()
ActiveSheet.Range("B:T").Rows("11:Letztezeile").ExportAsFixedFormat xlTypePDF, Filename:=Datei, Openafterpublish:=True
End Sub
Das Fett gedruckte ist der von mir gewählte Bereich, der Fehlerhaft angesprochen wird.
Vielleicht kann mir jemand auf die Sprünge helfen. So viel fehlt glaube ich nicht mehr bis zum Erfolg.
Freundliche Grüße und danke im voraus :)
|