Thema Datum  Von Nutzer Rating
Antwort
Rot Tabelle als PDF exportieren
19.12.2022 11:48:09 Gast96782
NotSolved
19.12.2022 12:02:14 Der Steuerfuzzi
*****
Solved
21.12.2022 08:45:57 Gast96782
NotSolved
21.12.2022 09:37:09 Der Steuerfuzzi
NotSolved
21.12.2022 10:48:16 Gast96782
NotSolved
21.12.2022 11:09:02 Der Steuerfuzzi
NotSolved

Ansicht des Beitrags:
Von:
Gast96782
Datum:
19.12.2022 11:48:09
Views:
62
Rating: Antwort:
  Ja
Thema:
Tabelle als PDF exportieren

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 :)


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Tabelle als PDF exportieren
19.12.2022 11:48:09 Gast96782
NotSolved
19.12.2022 12:02:14 Der Steuerfuzzi
*****
Solved
21.12.2022 08:45:57 Gast96782
NotSolved
21.12.2022 09:37:09 Der Steuerfuzzi
NotSolved
21.12.2022 10:48:16 Gast96782
NotSolved
21.12.2022 11:09:02 Der Steuerfuzzi
NotSolved