Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Verknüpfungen Fehler überspringen
23.12.2019 10:22:02
Jan-Phillip
Hallo mal wieder,
ich habe folgendes Problem / Hürde.
Ich habe mir ein Makro aufgezeichnet um eine Reihe von Arbeitsmappen zu öffnen, zu speichern und zu schließen.
Da meine Arbeitsmappen jedoch über Verlinkungen zu "noch" nicht existenten Tabellen führen, bekomme ich jedes mal die Excel-Fehlermeldung: Einige der Verknüpfungen in Ihrer Arbeitsmappe lassen sich zurzeit nicht aktualisieren. Welche ich mit "Weiter" bestätigen muss bevor das Makro weiter läuft.
Vielleicht kann mir jemand sagen, wie ich die Bestätigung der TextBox einpflege oder diese ganz unterdrücken kann.
Hier mein Makro:
Sub Alle_Aktualisieren()
' Alle_Aktualisieren Makro
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\E6\Monitoring E6.xlsm", UpdateLinks _
:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\G3A\Monitoring G3A.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\G3B\Monitoring G3B.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\G4\Monitoring G4.xlsm", UpdateLinks _
:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\G5A\Monitoring G5A.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\G5B\Monitoring G5B.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\G6\Monitoring G6.xlsm", UpdateLinks _
:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H1A\Monitoring H1a.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H1B\Monitoring H1B.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H2A\Monitoring H2A.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H2B\Monitoring H2BNeuro.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H2B\Monitoring H2BSU.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H3A\Monitoring H3A.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H3B\Monitoring H3B.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H4A\Monitoring H4A.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\H4B\Monitoring H4B.xlsm", _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks.Open Filename:= _
"N:\Pflegepersonaluntergrenzen\Monitoring\Y2\Monitoring Y2.xlsm", UpdateLinks _
:=3
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfungen Fehler überspringen
23.12.2019 10:41:57
Torsten
Hallo Jan-Phillip,
als Beispiel fuer eine Datei versuch mal:

Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="N:\Pflegepersonaluntergrenzen\Monitoring\E6\Monitoring E6.xlsm",  _
UpdateLinks:=3
ActiveWorkbook.Save
ActiveWindow.Close
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True

Gruss Torsten
AW: Verknüpfungen Fehler überspringen
23.12.2019 11:11:13
Jan-Phillip
Hallo Torsten,
sieht gut aus. Tausend Dank. Habe jetzt hinter dem letzten activeWindow.close das Application.DisplayAlerts = True
Application.AskToUpdateLinks = True weggelassen. Hat sauber durchgeklickert. Oder kann das Probleme machen? Mit musste ich das letzte Blatt händisch speichern und schließen
Anzeige
AW: Verknüpfungen Fehler überspringen
23.12.2019 11:16:19
Torsten
Hallo nochmal,
versuch mal anstatt die 2 Zeilen:

ActiveWorkbook.Save
ActiveWindow.Close

nur die eine:

ActiveWorkbook.Close savechanges:=True

und die 2 Sachen wieder auf True setzen. Wenn du das nicht wieder auf True setzt, bleiben die beiden Sachen ausgeschaltet, bis du Excel beendest und wieder neu startest. Kann zu Problemen in anderen Dateien fuehren.
Gruss
AW: Verknüpfungen Fehler überspringen
23.12.2019 13:00:09
Jan-Phillip
Alles klar. Danke

93 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige