Office: (Office 2016) aktuelles Tabellenblatt als pdf speichern

Helfe beim Thema aktuelles Tabellenblatt als pdf speichern in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen Ich möchte gerne mit Hilfe eines Buttons das jeweils aktuelle Tabellenblatt, auf dem der Button angebracht ist, als pdf speichern.... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von StH, 13. Dezember 2021.

  1. STH
    StH Neuer User

    aktuelles Tabellenblatt als pdf speichern


    Hallo zusammen

    Ich möchte gerne mit Hilfe eines Buttons das jeweils aktuelle Tabellenblatt, auf dem der Button angebracht ist, als pdf speichern. Dabei soll der Speicherort immer neu gewählt werden können und nicht schon fix hinterlegt sein.

    Kennt jemand einen Code, der das löst?

    Vielen Dank für eure Unterstützung.
     
  2. Exl121150 Erfahrener User
    Hallo,

    in der beiliegenden Excel-Datei ist im allgemeinen Codemodul "Modul1" das Makro "Speichern_AktBlatt_PDF" enthalten.
    Mit dem Klick auf den Button im Arbeitsblatt "Tabelle1" kann dieses Makro aufgerufen werden.
    Es erscheint ein Dateiauswahl-Dialog für "Speichern unter..." mit einem Dateifilter für PDF-Dateien.
    Man kann das Verzeichnis auswählen, wobei das erste angezeigte Verzeichnis dasjenige ist, in dem sich diese Excel-Datei befindet. Ferner muss natürlich ein Dateiname festgelegt werden.
    Gespeichert im PDF-Format wird nur das Arbeitsblatt, in dem sich der Button befindet, jedoch ohne den Button.
    Code:
    Option Explicit
    
    Sub Speichern_AktBlatt_PDF()
    '
        Dim j As Long
    '
        'Dateidialog für "Speichern unter..." aufrufen:
        With Application.FileDialog(msoFileDialogSaveAs)
           .AllowMultiSelect = False
           .InitialView = msoFileDialogViewDetails
           .InitialFileName = ActiveWorkbook.Path
           .Title = "Arbeitsblatt als PDF speichern"
           .ButtonName = "PDF speichern"
         
           'Dateifilter für PDF-Dateien auswählen:
           For j = 1 To .Filters.Count
             If UCase$(.Filters(j).Extensions) Like "*.PDF*" Then
               .FilterIndex = j: Exit For
             End If
           Next j
         
           If .Show Then
              'Falls Button "PDF speichern" geklickt wurde:
              ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                          Filename:=.SelectedItems(1), _
                          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                          IgnorePrintAreas:=False, OpenAfterPublish:=False
           Else
              'Falls Button "Abbrechen" geklickt wurde
           End If
         
        End With
    
    End Sub
    
     
    Exl121150, 14. Dezember 2021
    #2
  3. Exl121150 Erfahrener User
    Hallo,

    ich habe im Makro noch 2 kleine Ergänzungen gemacht.
     
    Exl121150, 14. Dezember 2021
    #3
Thema:

aktuelles Tabellenblatt als pdf speichern

Die Seite wird geladen...
  1. aktuelles Tabellenblatt als pdf speichern - Similar Threads - aktuelles Tabellenblatt pdf

  2. Zellenfarbe nach aktueller Uhrzeit ändern

    in Microsoft Excel Hilfe
    Zellenfarbe nach aktueller Uhrzeit ändern: Hallo Leute, die Zellenfarbe soll sich ändern, wenn die aktuelle Uhrzeit ist. Im Wochenkalender von Mo-So sind untereinander für jeden einzelnen Tag die Uhrzeiten von 0:00 bis 23:45 in 15...
  3. Aktuellen Datensatz als E-Mail-Text verschicken

    in Microsoft Access Hilfe
    Aktuellen Datensatz als E-Mail-Text verschicken: Hallo beisammen, ich bin grad am verzweifeln: ich hab zwar Access seit Jahren auf dem Rechner (durch Office365/M365) aber habe mich noch nie damit befasst - "Excel kann ja alles". Nun ja Access...
  4. Aktuelle Datum in einer Zelle ohne Sa+SO

    in Microsoft Excel Hilfe
    Aktuelle Datum in einer Zelle ohne Sa+SO: Hallo Zusammen, wie bekomme ich es hin das in einer Zelle immer das Heutige Datum angezeigt wird, aber Werktage ? Beim öffnen der Datei sollte das Datum in der Zelle A5 stehen.
  5. VBA Makro - Aktuellen Abschnitt drucken

    in Microsoft Word Hilfe
    VBA Makro - Aktuellen Abschnitt drucken: Hallo! Ich möchte ein VBA-Makro in Word programmieren, das den aktuell ausgewählten Abschnitt (dort wo sich der Cursor befindet) druckt. Mit der aktuellen Seite funktioniert es schon:...
  6. Tabellenblatt in selben Ordner wie die Aktuelle Arbeitsmappe Speichern

    in Microsoft Excel Hilfe
    Tabellenblatt in selben Ordner wie die Aktuelle Arbeitsmappe Speichern: Hallo Zusammen, Ich möchte gerne ein Tabellenblatt in dem Ordner wo die Arbeitsmappe liegt als eigene Arbeitsmappe abspeichern. Folgenden Code habe ich momentan: Code: Sub Test() Dim sh As...
  7. Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen.

    in Microsoft Excel Hilfe
    Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen.: Hallo. Habe folgendes Problem: Habe Tabellenblätter von Januar bis Dezember. Nun soll beim öffnen der Exceldatei immer das akutelle Tabellenblatt zum passenden Monat geöffnet werden. (Wenn wir den...
  8. Mit Makro auf anderes Tabellenblatt zu aktuellem Datum springen

    in Microsoft Excel Hilfe
    Mit Makro auf anderes Tabellenblatt zu aktuellem Datum springen: Hallo zusammen, Ich stehe vor folgendem Problem... Ich möchte, dass der Cursor in ein anderes Tabellenblatt in die Spalte D des Freitags der letzten Kalenderwoche springt. Dieses...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden