versteckte Namen löschen nicht mgl.
13.02.2007 15:06:09
Robert Burkhardt
ich habe folgendes Problem:
nachdem ich bemerkt habe, dass ich mir durch das kopieren "fremder" Arbeitsblätter unzählige definierte, aber nicht im Namenfeld sichtbare Namen
in meine Arbeitsmappe eingeschleust habe, versuchte ich diese zu löschen.
Das funktionierte über das angefügte Makro auch ganz gut, nur war das Löschen einiger weniger Namen (sind anscheinend nicht richtige Namen, eher Zellbezüge)nicht möglich. Der Name wurde als solcher erkannt, beim Löschversuch kam aber der Laufzeitfehler 1004 "Der eingegebene Name ist ungültig"
Bsp.für Name: A2;A3....
Sub Namen_löschen()
Dim Nm As Name
For Each Nm In Names
Frage = MsgBox("Soll der Bereichsname """ & Nm.Name & """" _
& Chr(13) & "Zellbereich: " & Nm.RefersTo _
& Chr(13) & "gelöscht werden?", vbYesNo)
If Frage = vbYes Then Nm.Delete
Next
End Sub
über Hinweise wie ich diese Plagegeister loswerden würde ich mich riesig freuen!
PS:
Werden solche Namen immer automatisch beim kopieren von Tabellenblättern mitgezogen? Gibt es nicht eine Möglichkeit, diese gleich sichtbar zu machen?
Viele Grüße
Robert
Anzeige