Frage : Streckennamen in VBA Excel dynamisch einstellen

Ich habe ein Verfahren, das durch das Arbeitsbuch sich schlingt und alle Kontonummer vom Arbeitsblatt Tab aufzeigt.  Diese unterscheiden sich jeden Monat und ich muss eine genannte Strecke (die verursachen in einem Import in eine ZUGANGSdatenbank 2003 benutzt wird), die dynamisch gründete auf der Zahl Konten in der Spalte verursacht wird.  Ein Monat konnte 35 sein das folgende, 125. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Public VorCreateWorksheetList ()
'Dieses wird getan, wenn die Daten gerade im Fall dort sind eine Änderung in den Reports exportiert werden
'das verursacht werden.  Es wird verwendet, um gegen die Datenbank zu überprüfen ob dort
'sind alle neuen Konten, die nicht dort eingeführt worden sind.
Schwaches rngTOC als Strecke, rngWksName als Strecke
Schwaches rngAccount als Strecke

    wksTOC = Arbeitsblätter („Table_Of_Contents“) einstellen
    wksTOC.Activate
    Stellen rngTOC = Strecke ein („Z2“)
        Für jedes wks in den Arbeitsblättern
            Wenn wks. Name mögen „Acct_*“ dann
        rngWksName = rngTOC.Offset (1, 0) einstellen
            rngTOC.Value = CStr (recht (wks. Name, 6))
        rngTOC = rngWksName einstellen
            Beenden wenn
        Zunächst
        
       rngAccount = wksTOC.Range („Z2“) einstellen. Ende (xlDown). Versatz (0, 0). Auserwählt
        
Enden-Unterseeboot

Antwort : Streckennamen in VBA Excel dynamisch einstellen

dieser Code verursacht eine genannte Strecke, die im Namensmanager, der Name der Strecke sichtbar ist, ist Ziel, es schaut ähnlich, was Sie Sie versucht sagten, aber es für mich funktioniert, also ihm einen Schuß geben

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Sub Macro1 ()

Ziel als Strecke verdunkeln

Strecke (ActiveCell, ActiveCell.End (xlDown)). Auserwählt
Ziel = Application.Selection einstellen
    
ActiveWorkbook.Names.Add Name: = " Ziel ", RefersTo: =target
ActiveWorkbook.Names („Ziel“). Anmerkung = ""

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us