Hallo zusammen,
brauche bitte mal wieder eure Hilfe : )
in meiner Datei gibt es mehrere Tabellenblätter.
Im Tabellenblatt „DB“ wird mit einem Makro ein neuer Ordner in dem Verzeichnis
"X:\Vertrieb\Logistik\Versandaufträge 2019-2021\2021\4 Abgeschlossen\"
erstellt.
Der Ordnername ergibt sich aus den Feldner C6, D3, C7 und L1 aus dem Tabellenblatt „A 1“.
Das ist das Makro dazu:
'* hier wird der Speicherpfad festgelegt
sPfad = "X:\Vertrieb\Logistik\Versandaufträge 2019-2021\2021\1 Auftragserfassung\"
'* hier wird der neue Dateiname generiert
With Sheets("A 1")
If .[L1] = "" Then
sFileName = .[C6] & "_" & .[D3] & "_" & .[C7]
Else
sFileName = .[C6] & "_" & .[D3] & "_" & .[C7] & "_" & .[L1]
End If
End With
'* Prüfung, ob der Ordner "4 Abgeschlossen & .[C6] & "_" & .[D3] & "_" & .[C7]" vorhanden ist
sZielOrdner = sPfadErledigt & "4 Abgeschlossen\" & sFileName & "\"
If Dir(sZielOrdner, vbDirectory) = "" Then MkDir sZielOrdner
Die Datei selbst liegt aber hier "X:\Vertrieb\Logistik\Versandaufträge 2019-2021\2021\1 Auftragserfassung\" wie oben im Makro beschrieben.
Jetzt kommt mein Problem :D
Habe nämlich in dieser Arbeitsmappe noch ein weiteres Tabellenblatt, aus dem ich eine PDF erstellen lassen möchte. Diese PDF soll dann in den Ordner, der da oben erzeugt wird abgelegt werden.
Die PDF erzeugen lassen kann ich schon,
sDateiname = WSh.Parent.Path & "\" & "Frachtanfrage_" & Worksheets("A 1").Range("C7") & "_" & Worksheets("A 1").Range("S16") & "_" & Worksheets("A 1").Range("C6").Value & ".pdf"
WSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityStandard, OpenAfterPublish:=False
Nur landet die leider noch nicht in dem Ordner wo ich sie gerne hätte.
Sie muss ja dann hier landen:
"X:\Vertrieb\Logistik\Versandaufträge 2019-2021\2021\4 Abgeschlossen\"neuer Ordner der aus den Feldern C6, D3, C7 und L1 generiert wird"\"
Vielen Dank vorab für eure Hilfe.
Gruß Andreas