Hallo in die Runde,
mit folgenden Makro speichere ich das erzeugte PDF erfolgreich in meiner Struktur C:\...\Documents\KoBo ab.
Dim strFilename As String
strFilename = Environ("USERPROFILE") & "\Documents\" & "\KoBo\" & Sheets("Mgl_Abr_1").Range("L21").Text & ".pdf"
If Dir(strFilename) = "" Then
Worksheets("Mgl_Abr_1").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strFilename, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Else
MsgBox "Diese PDF-Datei existiert bereits", vbOKOnly + vbInformation, "Hinweis"
End If
Sheets("Mgl_Abr_1").Range("M2").FormulaLocal = "=I9"
MsgBox "Der Beleg für die Abschlagszahlung wurde erfolgreich erstellt!", vbInformation, "PDF erzeugen"
Jetzt möchte ich dieses PDF in einer anderen Netzwerk-Struktur abspeichern. Dieses Speicheradresse steht in der Zelle "S36".
Sheets("Mgl_Abr_1").Range("S36")
Wie muss ich diesen Abschnitt des Makros ändern? Hierbei benötige ich Eure Unterstützung.
Vielen Dank im Voraus und Gruß, Marko