Clever-Excel-Forum › Office-Anwendungen › Excel v
best. Verknüpfungen aktualisieren

Thema geschlossen 
Baumstrukturmodus
best. Verknüpfungen aktualisieren
mort92 Offline
pausiert
Registriert seit: 12.05.2016
Version(en): 2013, 2016
#1
17.07.2018, 15: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
Suchen
Top
maninweb Offline
Benutzer
Registriert seit: 08.05.2014
Version(en): Office 2010, Office 365, Office 365 Betakanal
#2
18.07.2018, 09: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ß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 2011-2019 & 2020-2022 :: 10 Awards
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner
Homepage Suchen
Top
mort92 Offline
pausiert
ThreadStarter
Registriert seit: 12.05.2016
Version(en): 2013, 2016
#3
19.07.2018, 15: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
Suchen
Top
Zwergel Offline
CEF-Moderator
Registriert seit: 10.04.2014
Version(en): Office 2007, 2016, Win 10 64 bit
#4
19.07.2018, 16:02
Hi,

nutze mal diese Suchbegriffe im Netz, da findest du zahlreiche Hinweise zu deinem Problem:
"verknüpfungen powerpoint aktualisieren vba"
Mit freundlichen Grüßen  :)
Michael
Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste