16.07.2018, 14:21
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:
Leider lässt sich dieses nicht so ohne weiteres in PP übertragen (wäre ja auch zu einfach gewesen)
Kann mir jemand helfen? :19:
Besten Dank und Grüße,
Thorben
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:
ub aktualisieren()
'
' Makro1 Makro
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 SubLeider lässt sich dieses nicht so ohne weiteres in PP übertragen (wäre ja auch zu einfach gewesen)
Kann mir jemand helfen? :19:
Besten Dank und Grüße,
Thorben
