Erstellen einer Liste von benannten Bereichen für jedes Blatt

Question

Es gibt viele Dinge ähnlich, aber nicht genau mein Problem. Ich versuche Bereiche auf jeder Registerkarte basierend auf den Details des Tabnamens zu benennen. Ich habe die Tab-Namen in einem Blatt platziert und möchte nun benannte Bereiche basierend auf diesen Zellen definieren. Ich kann meine Bereichsnamen nicht mit einer Variablen vergleichen.

Sub Test() 

    Dim x As Integer 
    Dim y As String 
    Dim YY As String 
    Dim z As String 
    Dim ZZ As String 

    For x = 1 To Worksheets.Count 

    Sheets("List of Tab Names").Activate 

    y = Cells(x, 1).Value 
    z = Cells(x, 2).Value 
    YY = y & "Data2" 
    ZZ = z & "YoA2" 


    Sheets(y).Activate 

    Range("C9:BG233").Name = " ' " & YY & " ' " 
    Range("C7:BG7").Name = " ' " & ZZ & " ' " 

    Next x 

End Sub 

Answer 1

Sie benötigen keine einfachen Anführungszeichen um die Bereichsnamen. Versuchen Sie einfach:

Range("C9:BG233").Name = YY 
Range("C7:BG7").Name = ZZ 

Answer 2

Wenn ich Ihre Idee haben Recht denken, dass ich alles, was Sie vermissen die Funktion Worksheets(sheetname)

ist, wie Sie hier im Code sehen:

Range("A1:A5").Name = Worksheets("Sheet2").Range("A1")