Thema Datum  Von Nutzer Rating
Antwort
Rot Speichern unter Pfard ordner selber Wählen
 20.07.2015 18:40:36 Florian S.
NotSolved
20.07.2015 22:02:03 Gast11098
Solved
21.07.2015 08:06:22 Florian S.
NotSolved
21.07.2015 17:39:38 Gast11098
NotSolved

Ansicht des Beitrags:
Von:
Florian S.		 Datum:
20.07.2015 18:40:36		 Views:
2899		 Rating:
     
Antwort:
  Ja
Thema:
Speichern unter Pfard ordner selber Wählen

Moin moin zusammen, ich habe mich mit viel Google hilfe und verschiedensten Foren an einem Makro versucht. Dieses funktioniert im großen und ganzen auch nur eine sache fehlt mir, die ich nirgendwo bisher gefunden habe.

Das von mir erarbeitete:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub PDF()
'
' PDF Makro
'
 
'
    Sheets("Auswertung PDF").Visible = True
    Sheets("Auswertung PDF").Select
     
    Const DateiPfad = "C:\Users\Benutzer\Desktop\Ergebnisse\"
    Dim DateiName As String
     
    DateiName = DateiPfad & Range("B5") & ".pdf"
     
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    DateiName _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
    ActiveWindow.SelectedSheets.Visible = False
     
End Sub

Was ich mir wünschen würde ist, wenn ich im Ordner "Ergebnisse" noch weitere Ordner auswählen könnte, da dort Ordner sind mit verschiedenen Jahreszahlen mit weiteren unterordnern mit Produkten.

 

Interresant währe aber auch, wenn es gehen würde diese auswahl automatisch wählen zu lasse wie z.b.:

?
1
2
3
4
5
6
7
8
C:\Users\Benutzer\Desktop\Ergebnisse\ Zelle B3 \ Zelle x4 \ Dateiname. pdf
 
 
Ist hoffentlich verständlich, was ich erreichen möchte.
 
Schonmal vielen dank für eure Mühen.
Mit freundlichem Gruß
Florian S.

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Speichern unter Pfard ordner selber Wählen
 20.07.2015 18:40:36 Florian S.
NotSolved
20.07.2015 22:02:03 Gast11098
Solved
21.07.2015 08:06:22 Florian S.
NotSolved
21.07.2015 17:39:38 Gast11098
NotSolved