Wie können mehrere benannte Bereiche mit fester Größe aus einer Spalte erstellt werden?

918
AltTabsen

Ich frage mich, ob es eine Möglichkeit gibt, benannte Bereiche mit einer festen Größe (252 Zellen) aus einer Spalte zu erstellen.

Ich habe 51.156 Zahlen in Spalte B. Ich möchte, dass die ersten 252 Nummern ( B1:B252) benannter Bereich werden RANGE1.

Dann möchte ich B253-B504benannt werden RANGE2. Und so weiter.

Kennt jemand einen Weg? Normalerweise würde ich nur die Bereiche auswählen und einen Namen eingeben, aber jetzt muss ich dies für ca. 200 Bereiche pro Blatt in 25 Blatt.

Vielen Dank!

Ich habe die Aufgabe vielleicht etwas einfacher gemacht. Ich habe jetzt in Spalte C ( C1:C202) die Namen, aus denen die benannten Bereiche werden sollen, und in Spalte D die Eingabe für die Arrays, wie sie das Named Range-Menü liest ( D1enthält =first14!L1:L252, D2enthält =first14!L253:L504usw.).

0

1 Antwort auf die Frage

0
Engineer Toast

Sie können dies mit VBA tun. Sie müssen die Konstanten oben ändern, wenn Ihre Tabellen nicht alle gleich sind. Es verwendet das aktuell aktive Blatt, so dass Sie das gewünschte auswählen, bevor Sie das Makro ausführen.

Option Explicit Sub AddNamedRanges() Const NumberOfRanges As Long = 202 'How many ranges to create Const HeightOfRanges As Long = 252 'How tall to make each range Const RefersToColumn As Integer = "B" 'Which column to reference Dim r As Long For r = 1 To NumberOfRanges ActiveWorkbook.Names.Add "RANGE" & r, ActiveSheet.Range(RefersToColumn & (r - 1) * HeightOfRanges + 1 & ":" & RefersToColumn & r * HeightOfRanges) Next End Sub

Verwandte Probleme