Thema Datum  Von Nutzer Rating
Antwort
Rot Verknüpfungen automatisch aktualisieren mit Variablen in Dateinamen
 10.08.2017 10:10:40 Makromacker
NotSolved
10.08.2017 10:58:33 Gast90487
NotSolved
10.08.2017 11:46:50 Gast37811
NotSolved
10.08.2017 13:58:08 Gast16691
NotSolved

Ansicht des Beitrags:
Von:
Makromacker		 Datum:
10.08.2017 10:10:40		 Views:
1373		 Rating:
     
Antwort:
  Ja
Thema:
Verknüpfungen automatisch aktualisieren mit Variablen in Dateinamen
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Verknüpfungen automatisch aktualisieren mit Variablen in Dateinamen
 10.08.2017 10:10:40 Makromacker
NotSolved
10.08.2017 10:58:33 Gast90487
NotSolved
10.08.2017 11:46:50 Gast37811
NotSolved
10.08.2017 13:58:08 Gast16691
NotSolved