kann mir jemand sagen, ob bzw. wie es möglich ist den Zellen-namen der als Kriterienbereich dient aus einer Zelle auszulesen?
Vielen Dank im voraus
Rene
Sub Name_ermitteln()
Dim nm As Name, rg As Range
For Each nm In ActiveWorkbook.Names
Set rg = nm.RefersToRange
If ActiveCell.Parent.Name = rg.Parent.Name Then
'aktive Zelle und der Name müssen sich im gleichen TB befinden
If Not Application.Intersect(ActiveCell, nm.RefersToRange) Is Nothing Then
MsgBox ActiveCell.Address & " befindet sich in folgendem Namensverbund: " & nm.Name
End If
Exit Sub
End If
Next
MsgBox "Aktive Zelle gehört zu keinem mit Namen versehenen Bereich"
End Sub
Viele Grüße