Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Namen eines ausgewählten Bereiches auslesen

Gruppe

Name

Problem

Wie kann ich alle Bereichsnamen ermitteln, die in einem ausgewählten Bereich vorhanden sind?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub NamenLesen()
   Dim nme As Name
   Dim iCounter As Integer
   Dim srange As String
   Range("A1:E16").Select
   For Each nme In ThisWorkbook.Names
      srange = nme.RefersTo
      srange = Right(srange, Len(srange) - InStr(srange, "!"))
      If Not Intersect(Range(srange), Selection) Is Nothing Then
         iCounter = iCounter + 1
         MsgBox "Name " & iCounter & ":" & nme.Name & " - " & srange
      End If
   Next nme
End Sub