ich habe in einem Tabellenblatt sehr, sehr viele benannte Bereiche.
Wie kann ich herausfinden, zu welchem Namen eine bestimmte Zelle gehört?
Danke und Gruß
Specke
Sub test()
Dim nme As Name
For Each nme In ActiveWorkbook.Names
If Not Intersect(Range(nme), ActiveCell) Is Nothing Then
MsgBox "Gehört zu " & nme.Name
End If
Next
End Sub
Marc
Sub test()
Dim nme As Name, Bereich As Range, splt As Long, Arr
For Each nme In ActiveWorkbook.Names
Arr = Split(nme, ",")
For splt = 0 To UBound(Arr)
Set Bereich = Range(Arr(splt))
If Not Intersect(Bereich, ActiveCell) Is Nothing Then
MsgBox "Gehört zu " & nme.Name
End If
Next
Next
End Sub
Marc