Guten Morgen liebes Forum,
ich möchte in einer Exceldatei die Verknüpfungen automatisch über ein Makro aktualisieren. Den Code, wie das allgemein funktionieren sollte, habe ich bereits:
ActiveWorkbook.ChangeLink Name:= _
"\\...\Monatsreport\2017\0617\blabla" _
, NewName:= _
"\\...\Monatsreport\2017\0717\blabla" _
, Type:=xlExcelLinks
Bei den Dateien handelt es sich um Monatsberichte. Im Ordnersystem wird dabei die Datei des Vormonats in den aktuellen Monatsordner kopiert und anschließend aktualisiert. Die Verknüpfungen müssen also von den Dateien des Vormonats auf die aktuellen Dateien abgeändert werden. Das Problem ist nun, dass ich dafür Variablen in die Dateinamen einfügen muss, was bisher leider nur zu Fehlermeldungen führt. Ich ziehe hierfür Datumswerte aus Zellen der Exceldatei und füge diese wie folgt mit Variablen in den Code ein:
Set datum = ThisWorkbook.Sheets("Tabelle1").Range("A3")
Set datumvormonat = ThisWorkbook.Sheets("Tabelle1").Range("A4")
jahr = Right$(datum, 4)
jahrvormonat = Right$(datumvormonat, 4)
jahrmitmonat = Right$(datum, 7)
jahrmitmonatvormonat = Right$(datumvormonat, 7)
monat = Left$(jahrmitmonat, 2)
vormonat = Left$(jahrmitmonat, 2)
jahrkurz = Right$(datum, 2)
jahrkurzvormonat = Right$(datumvormonat, 2)
Tag = Left$(datum, 2)
tagvormonat = Left$(datumvormonat, 2)
pfadvormonat = jahrvormonat & "\" & vormonat & jahrkurzvormonat & "\Einlagen\Monatsreport\"
dateinamevormonat = pfadvormonat1 & jahrvormonat & "-" & vormonat & "-" & tagvormonat & " Zinsen" & ".xlsm"
pfad = jahr & "\" & monat & jahrkurz & "\Einlagen\Monatsreport\"
dateiname = pfad1 & jahr & "-" & monat & "-" & Tag & " Zinsen" & ".xlsm"
ActiveWorkbook.ChangeLink Name:= _
"\\...\Monatsreport\" & dateinamevormonat _
, NewName:= _
"\\...\Monatsreport\" & dateiname _
, Type:=xlExcelLinks
Kann mir hier im Forum jemand weiterhelfen, wo ich meinen Denkfehler habe? Würde mich sehr über eine Antwort freuen. Vielen Dank!
Gruß Makromacker
|