|
Mein Vorschlag:
Schreib dir den String mit beliebigen Platzhaltern im Dateipfad in eine Variable und ersetze dann diese Platzhalter mit den entspr. Informationen.
Ich benutzer hier <PLATZHALTER> weil die Zeichen "<" und ">" ungültige Zeichen in Dateisystem sind.
Auf diese Weise kannst du z.B. auch im Schrittmodus (F8) leicht den Inhalt der Variablen überprüfen.
Dim strFilePath As String
Dim strExpr As String
strFilePath = "\\...\###Stellungnahmen\<BEZ.1>\5.1_<BEZ.2>_I_Prüfung_Harte Kriterien_<BEZ.3>.pdf"
'1. Bezeichner
strExpr = Range("C23").Value & " " & Range("F23").Value
strFilePath = Replace$(strFilePath, "<BEZ.1>", Trim$(strExpr), Compare:=vbTextCompare)
'2. Bezeichner
strExpr = Range("H2").Value
strFilePath = Replace$(strFilePath, "<BEZ.2>", Trim$(strExpr), Compare:=vbTextCompare)
'3. Bezeichner
strExpr = Range("A29").Value
strFilePath = Replace$(strFilePath, "<BEZ.3>", Trim$(strExpr), Compare:=vbTextCompare)
Debug.Print strFilePath
Solltest du einen der Platzhalter vergessen, dann kommt es zu einer Laufzeitfehlermeldung, weil wie gesagt "<" ">" keine gültigen Zeichen sind.
Soviel zum Grundgedanken. Man kann das noch weiter verfeinern - solls hier aber mal gewesen sein.
Grüße
|