Bereichsname löschen
06.04.2005 14:36:08
paula
Heute hab ich ein Problem mit der INTERSECT-Anweisung
Jegliches Makro mit dieser Anweisung liefer einen Fehler, seitdem ein gewisser
Bereichname nicht gefunden wird.
Hier die Fehlermeldung:
"Laufzeitfehler 1004
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen."
Im DEBUG-Modus:
der Cursor zeigt zur Variablen "myNames" folgendes:
myNames="='Leere Zellen'!#REF!"
zur Variablen "myNames.Name" zeigt er:
myNames.name="'Leere Zellen'!_FilterDatabase"
Dieser Bereichsname ist aber nirgendwo vergeben.
Hier mein Makro in Tabelle10:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myNames As name
For Each myNames In ThisWorkbook.Names
If Not Intersect(ActiveCell, Range(myNames)) Is Nothing Then
MsgBox ActiveCell.Address & " liegt im Bereich " & myNames.name
End If
Next
End Sub
Wie werde ich diesen Bereichsnamen los oder wie ist sonst das Problem zu lösen?
Ich danke euch im Voraus für jeden Hinweis
Paula