Dateipfad in SVERWEIS mit VBA ändern
15.10.2019 00:43:53
Dior
Ihr Profis könnt mir sicher bei einem Problem helfen. Ich bin ein absoluter VBA Anfänger!
Ich habe mit dem Makro-recorder eine Wenn- mit Sverweisformel eingespielt.
Nun möchte ich den Dateipfad im Sverweis, mit einem weiteren Befehl auf den aktuellen Dateipfad aktualisieren.
Der Wunsch kommt daher, da ich jede Woche den Ordner (mit Dateien) in einen neuen Ordner kopiere. (Bsp. von KW44 nach KW45)
Ansonsten bleibt der Dateipfad im Sverweis bei KW44.
Mein Makro sieht bisher so aus:
Sub Preprodweeks()
' Preprodweeks Makro
ActiveCell.FormulaR1C1 = _
"=IF(RC[-6]=""310"",VLOOKUP(RC[-12],'C:\Users\2116033\Desktop\KW43\Linie-3\[KW43 - _
L3RE_Planning_Tool_TTP_1.0.xlsm]PLOs COOIS'!R1C1:R10000C13,13,FALSE),IF(RC[-6]=""315"",VLOOKUP(RC[-12],'C:\Users\2116033\Desktop\KW43\Linie-3\[KW43 - L3DO_Planning_Tool_TTP_1.0.xlsm]PLOs COOIS'!R1C1:R10000C13,13,FALSE),IF(RC[-6]=""380"",VLOOKUP(RC[-12],'C:\Users\2116033\Desktop\KW43\Li" & _
"nie-3\[KW43 - L3DR_Planning_Tool_TTP_1.0.xlsm]PLOs COOIS'!R2C1:R10000C13,13,FALSE))))" _
& _
Range("M2").Select
Selection.AutoFill Destination:=Range("M2:M1879")
Range("M2:M1879").Select
End Sub
Überall wo jetzt im Dateipfad "KW43" steh, sollte das Makro es durch "KW44" ersetzten. Die Datei befindet sich dann auch im Ordner KW44
Ich hoffe ihr versteht meine Erklärung...
Kann mir jemand einen Ansatz geben, wie ich das Makro weiterschreibe oder wie es geschrieben wird.
Ich danke im Voraus!!!