Sub AX()
Dim nme As Name
For Each nme In Names
MsgBox nme.Name & " " & nme.RefersTo
Next nme
End Sub
Gruß Herbert
Sub tt()
Dim n As Name, i As Integer, r As Range
Set r = Range("A100:A200")
For Each n In ActiveWorkbook.Names
i = i - Not Intersect(n.RefersToRange, r) Is Nothing
Next
MsgBox i
End Sub
Gruß
Dierk
Sub tt()
Dim n As Name, i As Integer, r As Range
Set r = Range("A100:A200")
For Each n In ActiveWorkbook.Names
If n.RefersToRange.Parent.Name = r.Parent.Name Then
i = i - Not Intersect(n.RefersToRange, r) Is Nothing
End If
Next
MsgBox i
End Sub
Da Intersect nur Bereiche es gleichen Tabellenblattes auf Überlappung prüfen kann,
muß geprüft werden , ob das Tabellenblatt, auf das sich Range bezieht auch das gleiche ist, auf das sich der gerade geprüfte Name beruft - sonst Laufzeitfehler 1004.
Gruß von Luschi
aus klein-Paris
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen