VorCreateNamedRangesExtWbk ()
'Genannte Range im externen Arbeitsbuch herstellen
WB als Arbeitsbuch verdunkeln
filePath als Schnur verdunkeln
currentWbk als Schnur verdunkeln
filePath = „C:\“
Application.ScreenUpdating = falsch
currentWbk = ActiveWorkbook.Name
Für i = 1 bis 52
Einstellen WB = Workbooks.Open (filePath u. „ACA-Woche“ u. i)
Arbeitsbücher (currentWbk). Names.Add Name: = " anbindet " u. i, RefersTo: =wb. Arbeitsblätter („TailAvailability“). Strecke („6: $R$204“)
WB. Nahes falsches
Einstellen WB = nichts
Zunächst
Application.ScreenUpdating = ausrichten en
MsgBox „genannte Ranges eingestellt worden!“
Enden-Unterseeboot
|