Troubleshooting zur Namenslöschung

Option Explicit Sub AlleNamenLoeschen() Dim varName As Name Dim intFrage As Integer intFrage = MsgBox("Sollen alle Namen gelöscht werden?", _ vbYesNo, "wirklich?") If intFrage = vbNo Then Exit Sub For Each varName In ActiveWorkbook.Names varName.Delete Next varName End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Weise VBA an, bei einem Fehler nicht abzubrechen, sondern einfach weiter zu machen:


0n Error Resume Next
For Each varName In ActiveWorkbook.Names
varName.Delete
Next varName
On Error goto 0

Lass das Makro mal durchlaufen.
Kontrolliere dann die Namen.
Sind noch alle da, ist der Code falsch.
Sind einige weg und einige noch da, dann ist der Code korrekt, aber an den vorhandenenn Namen ist irgendwas besonderes, dass verhindert dass der Name gelöscht werden kann, Düse solltest du dir genauer anschauen.
Sind alle Namen weg, dann gibt es versteckte Namen, die Excel nicht löschen kann.
Um hier weiter zu forschen, solltest du den Code so erweitern:


0n Error Resume Next
For Each varName In ActiveWorkbook.Names
ERR = 0
varName.Delete
If ERR  0 then Debug.Print varName.Name
Next varName
On Error goto 0

Dann siehst du im Direktfenster die Namen, die das Problem verursachen.
Gruß Daniel

Sub Namen_löschen() Dim varName As Name Const cAusnahme = "balance_type;Bez_Monat;Bez_Quartal;calc;Finanz!DATA10;Finanz!DATA1;Finanz!DATA2" On Error Resume Next For Each varName In ActiveWorkbook.Names If Not InStr(1, cAusnahme, varName, vbTextCompare) Then varName.Delete Next varName End Sub

Sub NamenLoeschenFIPackage() Dim varName As Name Dim intFrage As Integer Const cAusnahme = "aktueller_Monat;aktuelles_Quartal;Bez_Monat;Bez_Quartal" intFrage = MsgBox("Sollen alle Namen gelöscht werden?", _ vbYesNo, "alle?") On Error Resume Next For Each varName In ActiveWorkbook.Names If Not InStr(1, cAusnahme, varName, vbTextCompare) Then varName.Delete Next varName End Sub

Sub NamenLoeschenFIPackage() Dim varName As Name Dim intFrage As Integer Const cAusnahme = "aktueller_Monat;aktuelles_Quartal;Bez_Monat;Bez_Quartal" If MsgBox("Sollen alle Namen gelöscht werden?", vbYesNo, "Alle?") = vbNo Then Exit Sub On Error Resume Next For Each varName In ActiveWorkbook.Names ' If Not InStr(1, cAusnahme, varName, vbTextCompare) Then varName.Delete Debug.Print varName, Iif(InStr(1, cAusnahme, varName, vbTextCompare), "vorhanden, nicht löschen", "nicht vorhanden, löschen") Next varName End Sub

Hallo Simon,
wenn diesen Test ergibt, dass "varName" "=Inputf4" beinhaltet, dann gibt es eine Denkfehler.
varName ist dann ein Objekt vom Typ Name*. Was Du daraus brauchst, ist der Eigenschaft "Name". Also so:


    For Each varName In ActiveWorkbook.Names
Debug.Print varName.name
Next varName

Dementsprechend:


Sub NamenLoeschenFIPackage()
Dim varName As Name
Dim intFrage As Integer
Const cAusnahme = "aktueller_Monat;aktuelles_Quartal;Bez_Monat;Bez_Quartal"
If MsgBox("Sollen alle Namen gelöscht werden?", vbYesNo, "Alle?") = vbNo Then Exit Sub
On Error Resume Next
For Each varName In ActiveWorkbook.Names
'        If Not InStr(1, cAusnahme, varName.Name, vbTextCompare) Then varName.Delete
Debug.Print varName.Name, Iif(InStr(1, cAusnahme, varName.Name, vbTextCompare), "vorhanden, nicht löschen", "nicht vorhanden, löschen")
Next varName
End Sub

*: viele Objekt-Typ (man sagt "Klasse") hat ein Default-Eigenschaft, der zurückgegeben wird, wenn man das Objekt unspezifiziert anspricht. Die Klasse "Name" scheint "RefersTo" und nicht "Name" als Default-Eigenschaft zu haben.
Man kann den Test mit oder ohne beannte Eigenschaft machen:


Sub Test_defaultProperty()
Dim N
For Each N In Application.Names
Debug.Print N, N.Name, N.RefersTo 'Ohne Eigenschsft, Name-Eigenschaft, RefersTo-Eigenschaft
Next
End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

Troubleshooting zur Namenslöschung

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread