Frage : Makro, das 52 anders identische genannte Strecken verursacht, jedes mit einer anderen Zahl in der Mitte.

Ich habe eine Strecke, die Tails1 mit dieser Definition genannt wird:
Tails1='[ACA Woche 24.xls] TailAvailability'!$6: $R$204

I Notwendigkeit ein Makro, das Namen für die restlichen 51 Wochen des Jahres, jedes mit einer anderen Wochenzahl, z.B. verursacht:
Tails2='[ACA Woche 2.xls] TailAvailability'!$C$6: $R$204
Tails17='[ACA Woche 17.xls] TailAvailability'!$6: $R$204

wenn notwendig kann ich die ersten 9 Akten mit zweistelligen Zahlen umbenennen, aber ich würde sie eher betitelt halten, wie ist. (Obgleich gekommen, an es, es würde zu denken nett sein, es außerdem zu kennen die zweistellige Weise, falls jemand anderes entscheidet, dass sie die Akten wünschen, die ganz mit zwei Stellen. genannt werden),

Thanks,
John

Antwort : Makro, das 52 anders identische genannte Strecken verursacht, jedes mit einer anderen Zahl in der Mitte.

GUTHEISSEN, um die genannte Strecke auf ein externes Arbeitsbuch einzustellen, diesen Code versuchen:

Sicher sein, zu ändern das filepath zu, dem Ihre „ACA Arbeitsbücher der Woche x“ in dieser Linie sind:

filePath = „C:\“
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

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
Weitere Lösungen  
 
programming4us programming4us