Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bestimmte externe Verknüpfungen aktualisieren (VBA)
#1
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
Antwortento top
#2
Hallöchen,

eventuell hilft Dir das weiter:

https://www.ms-office-forum.net/forum/sh...p?t=308135
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top


Gehe zu:


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