Seuthe.org

Folgendes ist gegeben: Einem Bereich aus einer Mehrfachselektion (Zellen auswählen bei gedrückter Steuerungstaste) wird ein Name zugewiesen.

Ein Zugriff darauf per:

ThisWorkbook.Names("Bereichsname").RefersToRange

wird mit einem Fehler, Code 1004, beantwortet. Sehr naheliegend ist das nicht, erwarte ich schließlich die Areas-Aufzählung des erhofften Range-Objektes abzuklappern, um an die einzelnen Zellen zu kommen.

Die Lösung sieht stattdessen wie folgt aus:

Dim named_range as Range
Set named_range = Application.Range(ThisWorkbook.Names(Bereichsname).RefersTo)

Dim area_range As Range
For Each area_range In named_range.Areas
  ...
Next

Warum RefersToRange das im Falle einer Mehrfachauswahl nicht gleich so macht, wird wohl nur Microsoft wissen.