Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > best. Verknüpfungen aktualisieren
Normale Version: best. Verknüpfungen aktualisieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

mort92

17.07.2018, 14:05
Moin Moin zusammen,

ich arbeite zur zeit an einer sehr großen Präsentation mit etlichen Verlinkungen und verknüpften Arbeitsblatt-Objekten (hauptsächlich Excel)
Sobald die Datei geöffnet wird, fragt PP danach, ob man diese Verknüpfungen aktualisieren möchte.
Das kann bis zu 20 Minuten dauern.

Ich habe versucht, ein Makro aufzunehmen, welches nur bestimmte Verknüpfungen aktualisieren soll.
Dieses Makro befindet sich in Excel und sieht wie folgt aus:

Code:
Sub aktualisieren()
'
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Leiharbeiter\Personaldienstleister Konditionen.xlsx"
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Leiharbeiter\Personaldienstleister Konditionen.xlsx" _
      , UpdateLinks:=0, Notify:=False
 
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Leiharbeiter\Personaldienstleister Konditionen.xlsx"
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Leiharbeiter\Leiharbeiter Stempelkarten VEDA.xlsx" _
      , UpdateLinks:=0, Notify:=False

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Leiharbeiter\Leiharbeiter Stempelkarten VEDA.xlsx" _
      , UpdateLinks:=0, Notify:=False
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Leiharbeiter\Leiharbeiter Stempelkarten VEDA.xlsx" _
      , UpdateLinks:=0, Notify:=False
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Krankenstand\2017\Krankenstand ab 2017.xlsx"
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Krankenstand\2017\Krankenstand ab 2017.xlsx"

  ActiveWorkbook.Close

  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Krankenstand\2017\Krankenstand ab 2017.xlsx"

  ActiveWorkbook.Close

  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Operativ\Pickleistungen\Pickleistung Zusammenfassung 2018.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Operativ\Pickleistungen\Pickleistung Zusammenfassung 2018.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Operativ\Pickleistungen\Pickleistung Zusammenfassung 2018.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Krankenstand\2017\Krankenstand ab 2017.xlsx"
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Krankenstand\2017\Krankenstand ab 2017.xlsx"
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Krankenstand\2017\Krankenstand ab 2017.xlsx"

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Einstellungen\Fluktuation.xlsx" _
      , UpdateLinks:=0

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Stellenbeschreibungen\Offene Stellen Gesamt.xlsx"

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Stellenbeschreibungen\Offene Stellen Gesamt.xlsx"

  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Nicht operativ\Stellenbeschreibungen\Offene Stellen Gesamt.xlsx" _
      , UpdateLinks:=0
ActiveWorkbook.Close
 
  ActiveWorkbook.Close
  Workbooks.Open Filename:= _
      "\\fileserver\teamdata\Logistik\LogistikBoard\Sortiert\1. Logistik\3 Personal\Operativ\Pickleistungen\Pickleistung Zusammenfassung 2018.xlsx" _
      , UpdateLinks:=0

  ActiveWorkbook.Close
End Sub
Leider lässt sich dieses nicht so ohne weiteres in PP übertragen (wäre ja auch zu einfach gewesen) Ich habe auch versucht, dass aus Excel heruas zu steuern (sodass aus Excel heraus die PP-Verknüpfungen aktualisiert werden - leider auch kein Erfolg)
Kann mir jemand helfen?  [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]


Besten Dank und Grüße,

Thorben

maninweb

18.07.2018, 08:12
Hallo,

ungetestet, aber vielleicht helfen möglicherweise die folgenden Links (Englisch) weiter ...

https://exceloffthegrid.com/edit-links-i...using-vba/
https://stackoverflow.com/questions/4093...ower-point

Gruß

mort92

19.07.2018, 14:56
Hi mani,

danke für die Links  Smile
Ich hatte schon gehofft, der Lösung näher gekommen zu sein, da der UpdateLinks = 0 genau falsch ist.
um zu aktualisieren muss hier eine 2 oder 3 stehen.

Leider hat es nicht geholfen.
Der Link um Verknüpfungen (also die Verzeichnisse umzubennen) ist sehr interessant. Wird bestimmt in Zukunft auf mich zukommen.

Echt schade, dass es kein Makro aufzeichnen in PP gibt. Damit kann man sich immer sehr gut in Excel durchwurschteln.

Viele Grüße,

Thorben

Zwergel

19.07.2018, 15:02
Hi,

nutze mal diese Suchbegriffe im Netz, da findest du zahlreiche Hinweise zu deinem Problem:
"verknüpfungen powerpoint aktualisieren vba"
Clever-Excel-Forum > Office-Anwendungen > Excel > best. Verknüpfungen aktualisieren