Nach PC Umzug Problem

[snb]

Und was sagt dein Makrorecorder ?

[Beltason]

Ich versehe nicht was du meinst? Nach was soll ich suchen?

[Beltason]

Ist keiner unter den Fachleuten der mir Helfen kann?

Warum funktioniert der Code nicht auf dem neuen Lenovo Think nicht? Auf anderen PC geht er

Vieleicht muss er umprogramiert werden?? Habe jetzt so viel aus dem Netz ausprobiert, nichts geht...

Wenn ich in dem Code thisworkbook.path vorstzte speichert er komischerweise die PDF im gleichen Pfad, wo die Ecel Tabelle liegt ab.
Ich möchte aber in einer anderen Festplatte/Ordner speichern...!

[Kuwer]

Wenn ich in dem Code thisworkbook.path vorstzte speichert er komischerweise die PDF im gleichen Pfad, wo die Ecel Tabelle liegt ab.
Ich möchte aber in einer anderen Festplatte/Ordner speichern...!

siehe #7!

Gruß Uwe

[cysu11]

Hallo Beltason,


Chdir funktioniert nicht mit Netzlaufwerk unter Windows10, mit dein Code wird die PDF in Standardordner gespeichert als in "Dokumente" auf C:

Mit diesem Code sollte es aber funktionieren!

Code:

Sub aktivesBlattToPdf()
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   "E:\Dokumente PDF\PDF Sicherung Tagesabschluß\2019\03\" & _
       Range("F5").Value & Format(Now, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
       False
MsgBox "Vielen Dank für deine PDF Speicherung!"
End Sub

LG
Alexandra

[cysu11]

oder so geht es doch...

Code:

Sub aktivesBlattToPdf1()
Dim objSh As Object
Set objSh = CreateObject("WScript.Shell")
ChDrive ("E:\")
ChDir "E:\Dokumente PDF\PDF Sicherung Tagesabschluß\2019\03" 'anpassen 'oder thisworkbook.path
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       Range("F5").Value & Format(Now, "DD.MM.YYYY.hh.mm.ss") & ".pdf", Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
       False
objSh.Popup "Vielen Dank für deine PDF Speicherung!", 3, "", 64
Set objSh = Nothing
End Sub

LG
Alexandra

[Beltason]

Vielen lieben Dank Alexandra, das wars :15: :15: :15: :18: :18: :100: :100: :100: :100: 

Eine Frau die Ahnung hat!!!!!!!!!!!!!!!!!!!!!! :19: :19: :19: :18: :18: :18:

[cysu11]

Welche von den zwei Lösungen hast du genommen?

[schauan]

Hallöchen,

ich hatte weiter oben schon was zum Handling bei Verzeichniswechseln mit eventuellem Laufwerkswechsel geschrieben. Das hast Du anscheinend nicht berücksichtigt. Schaust Du in Alexandras Code, siehst Du wie's geht...