Wie kann ich neu definieren Sie einen benannten Bereich mit VBA?

Ich habe einen benannten Bereich, genannt "X", die 1000 Zeilen und ich möchte dynamisch reduziert 100.

Versuchte ich Range("X").Resize(100,1) und auch .Resize(-900,0) aber weder scheinen Sie zum ändern der Größe des benannten Bereichs wenn ich in excel durch Auswahl des Bereichs aus dem Bereich drop-down-Menü. Was mache ich falsch?

  • Für mich funktioniert. ?range("a1:a1000").resize(100,1).address zurück $A$1:$A$100
InformationsquelleAutor mezamorphic | 2012-06-14
  1. 24

    Angenommen, Sie haben eine named range namens "myRange". Wenn Sie dies tun:

    Dim r As Range
Set r = Range("myRange")
Debug.Print r.Resize(10, 1).Address

    Was du sagst ist: ich habe diese Palette r. Wählen, das mit myRange als seinen ursprünglichen Zustand. Ändern Sie dann die Größe r um etwas anderes. Was Sie getan haben ist, Sie haben die Größe angepasst r, nicht myRange.

    Größe ändern, um einen benannten Bereich handelt, müssen Sie etwas tun, wie dieses:

    Dim wb As Workbook
Dim nr As Name

Set wb = ActiveWorkbook
Set nr = wb.Names.Item("myRange")

' give an absolute reference:
nr.RefersTo = "=Sheet1!$C$1:$C$9"

' or, resize relative to old reference:
With nr
    .RefersTo = .RefersToRange.Resize(100, 1)
End With
    InformationsquelleAutor Jean-François Corbett
  2. 1

    Vielen Dank für Ihre Beiträge. Basierend auf Ihre Hilfe konnte ich mit diesem code, um die Größe einer Palette und post n Zeilen aus einem array zu.

    Sub PostArrayLinesToRange(ByVal rngName As String, ByRef arr As Variant, ByVal r As Long)
    Dim wb As Workbook
    Dim rng As Range
    Dim nr As Name          'Variable to change named range size definition

    Set wb = ThisWorkbook
    Set rng = Range(rngName)

    rng.Clear
    Set nr = wb.Names.item(rngName)
    With nr
        .RefersTo = .RefersToRange.Resize(r, UBound(arr, 2))
    End With
    Set rng = Range(rngName)
    rng = arr
    Erase arr
    Set nr = Nothing
    Set rng = Nothing
    Set wb = Nothing
End Sub
    InformationsquelleAutor
Schreibe einen Kommentar