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