Laafzeitfehler '424'

Sub ZellnamenLöschen1() 'löscht alle Zellnamen mit ungültigem Bezug Dim Zellnamen ' As Object Dim r ' As Long Set Zellnamen = ActiveWorkbook.Names For r = Zellnamen.Count To 1 Step -1 If InStr(Zellnamen(r), "#REF") 0 Then Zellnamen(Zellnamen(r).Name).Name.Delete End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Erich,
Der von mir in Pktt gefasste Teil steht zuerst im Pgm und fiel mir folgl gleich ins Auge; entscheidend ist aber wohl, was unter Außerdem steht und das hast du sinngemäß in deinem Beitrag auch geschrieben, wenn auch etwas „verwundert-unentschlossener“. ;-)
Zu 1. hast du natürl recht, sonst könnte das ja auch nicht evaluiert wdn, nur habe ich idR keine FWertTexte in Namen, die ich per VBA bearbeiten wollte, was wohl in 1.Linie eine Frage der Arbeitsorganisation ist.
Zu 2. liegst du informell auch richtig – hätte deutlicher Names(n) schreiben sollen, denn ein einzelnes Auflistungsmember hat diese Eigenschaft, und das war gemeint, nicht unbedingt Name wie du schreibst, denn das kommt in dieser Bedeutung nur als Objekt(Modell)Typ, nicht als vbKeyWord vor. Nehme an, dass du das auch so meinst.
Zu 3. analog 1., aber bei benannten Fmln kommt man nicht ums Evaluieren herum und damit habe ich es idR zu tun. Ein Zellbezug wäre strenggenommen zwar auch eine benannte Fml (=!), ist aber wohl die trivialste Form und wie benannte Konstanten auch anders auswertbar wie ich natürl auch weiß, aber hier versäumt habe zu reflektieren (zu FWerten vgl Anmerkung zu 1.). ;-)
Gruß Luc :-?

Hi,
probier mal


Option Explicit
Sub ZellnamenLöschen2()    'löscht alle Zellnamen mit ungültigem Bezug
Dim Zellnamen As Names
Dim r As Long
Set Zellnamen = ActiveWorkbook.Names
For r = Zellnamen.Count To 1 Step -1
If InStr(Zellnamen(r), "#REF") Then Zellnamen(r).Delete
'     If InStr(Zellnamen(r).RefersTo, "#REF") Then Zellnamen(r).Delete
'     If InStr(Zellnamen(r), "#REF") Then ActiveWorkbook.Names(Zellnamen(r).Name).Delete
Next
End Sub
Sub ZellnamenLöschen3()    'löscht alle Zellnamen mit ungültigem Bezug
Dim xName As Name
For Each xName In ActiveWorkbook.Names
If InStr(xName, "#REF") Then xName.Delete
'     If InStr(xName.RefersTo, "#REF") Then xName.Delete
Next
End Sub

Deine Löschzeile verstehe ich nicht wirklich. Nehmen wir mal an, du hast einen Namen definiert
mit Namen "myBereich" und der Name steht in der Liste der Namern an 3. Stelle. Dann ist


Zellnamen(   Zellnamen(3)   .Name).Name
Zellnamen(Names("myBereich").Name).Name
Zellnamen(      "myBereich")      .Name
Names("myBereich")        .Name
"myBereich"

"myBereich" ist kein Name, sondern ein String, dafür gibt es kein Delete.
Eine Delete-Methode braucht ein Objekt - das sagt die Fehlermeldung aus.
ActiveWorkbook.Names(Zellnamen(r).Name) ist ziemlich sinnlos, weil gleich
ActiveWorkbook.Names(r)
Wie ein Name heißt, interessiert dich eigentlich gar nicht. Wichtig ist nur, ob im RefersTo-String (Formel) ein #REF vorkommt.
Wenn ja, wird der Name gelöscht, egal, wie er heißt. Das zeigt ZellnamenLöschen3().
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread