Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Powerpoint > Bestimmte externe Verknüpfungen aktualisieren (VBA)
Normale Version: Bestimmte externe Verknüpfungen aktualisieren (VBA)
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

mort92

16.07.2018, 13: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:

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 Sub

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

schauan

22.07.2018, 06:14
Hallöchen,

eventuell hilft Dir das weiter:

https://www.ms-office-forum.net/forum/sh...p?t=308135

chrissy

13.05.2019, 20:21
Wie kann man Marko in Powerpoint aufnehmen?

WillWissen

13.05.2019, 20:56
Hi Chrissy,

in PPT kannst du keine Makros aufnehmen (https://www.xing.com/communities/posts/p...1004657653).
Clever-Excel-Forum > Office-Anwendungen > Powerpoint > Bestimmte externe Verknüpfungen aktualisieren (VBA)