Abfragen, ob benannter Bereich gelöscht ist
26.03.2009 17:45:59
Peter
Angenommen, in Tabelle1, Zelle B2 besteht ein mit "Eingabebereich" benannter Bereich.
Im Menu EINFÜGEN - Namen definieren erscheint
"Eingabebereich" bezieht sich auf =Tabelle1!$B$2
Wenn ich nun beispielsweise die Spalte B lösche, bezieht sich dann "Eingabebereich" auf =Tabelle1!#BEZUG!
Nun möchte ich die nachfolgende Funktion erweitern, dass diese nicht nur WAHR zurückgibt, wenn der Namen nicht besteht, sondern auch, wenn der Bezug fehlt.
Wie kann ich dies einbauen?
Danke für eine Antwort.
Gruss, Peter
Public Function NameExists(TheName As String) As Boolean
'überprüft, ob der übergebene Name exisitiert
On Error Resume Next
NameExists = Len(ThisWorkbook.Names(TheName).Name) 0
End Function