Thema Datum  Von Nutzer Rating
Antwort
31.10.2019 13:18:41 Alpenzwerg
NotSolved
31.10.2019 13:21:05 Gast31370
NotSolved
31.10.2019 13:28:38 Gast8240
NotSolved
31.10.2019 13:45:22 Mase
NotSolved
31.10.2019 13:46:40 Gast27565
NotSolved
31.10.2019 14:00:22 Gast2676
NotSolved
31.10.2019 14:33:26 Gast93732
NotSolved
31.10.2019 14:45:18 Gast97698
NotSolved
Rot Viele Blätter als pdf Speichern ohne zu bestätigen
 31.10.2019 14:58:12 Mase
Solved
31.10.2019 15:44:49 Gast70414
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
31.10.2019 14:58:12		 Views:
624		 Rating:
     
Antwort:
 Nein
Thema:
Viele Blätter als pdf Speichern ohne zu bestätigen

Versuch mal folgendes:

 

Option Explicit

Sub ExpAs()
    Dim wkb As Workbook
    Dim wks As Worksheet
    Dim sFullFileName As String
    Dim sFileName As String
    Dim sPath As String
    '
    Set wkb = ThisWorkbook
    sPath = "C:\"
    sFileName = "Test"
    sFullFileName = sPath & Application.PathSeparator & sFileName
    '
    For Each wks In wkb.Worksheets
        wks.ExportAsFixedFormat xlTypePDF, sFullFileName
    Next
End Sub

 

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
31.10.2019 13:18:41 Alpenzwerg
NotSolved
31.10.2019 13:21:05 Gast31370
NotSolved
31.10.2019 13:28:38 Gast8240
NotSolved
31.10.2019 13:45:22 Mase
NotSolved
31.10.2019 13:46:40 Gast27565
NotSolved
31.10.2019 14:00:22 Gast2676
NotSolved
31.10.2019 14:33:26 Gast93732
NotSolved
31.10.2019 14:45:18 Gast97698
NotSolved
Rot Viele Blätter als pdf Speichern ohne zu bestätigen
 31.10.2019 14:58:12 Mase
Solved
31.10.2019 15:44:49 Gast70414
NotSolved