names(i).delete klappt nicht?!?

Hallo zusammen,
bin gerade irritiert.
Habe 2 Namen:
a = Tabelle1!A1 --> Für komplette Mappe
a = Tabelle1!B2 --> Nur für Tabelle1 (sozusagen ein "lokales" a).
Jetzt will ich mit VBA da "globale" a (das auf Tebelle1!A1 zeigt) löschen. Weils noch mehr Namen geben kann, suche ich über names(i).name (bzw. For Each) nach a. NIcht nach 'Tabelle1'!a, sondern nur nach a. Finde ich auch. Ist auch die richtige Stelle. Dann mache ich names(i).delete (bzw. in diesem Falle nameItem.delete, weil ich schon gedacht habe, dass Excel hier nen anderen Index hat). Tja, was soll ich sagen, Excel löscht den "falschen" Namen. Excel löscht den lokalen, nicht den globalen.
Lustiger Weise passiert das nur bei gleichnamigen Namen, die lokal / global sind. Bei anderen Namen gehts.
Habe die Datei mal angehängt, vielleicht bin ich ja auch blöd. Bitte einfach mal WBRemoveTags starten. https://www.herber.de/bbs/user/146211.xlsm
Hier ist der Code


Private Sub PrintTags()
Dim nameItem As Excel.Name
Dim i As Long
If ThisWorkbook.Names.Count > 0 Then
For i = 1 To ThisWorkbook.Names.Count
Debug.Print ThisWorkbook.Names(i).Index & " - " & ThisWorkbook.Names(i).Name & " - " & ThisWorkbook.Names(i).RefersTo & " - " & ThisWorkbook.Names(i).Visible & " - " & ThisWorkbook.Names(i).Comment
Next i
End If
End Sub


Private Sub WBRemoveTags()
Dim nameItem As Excel.Name
Debug.Print "---- Vor Löschen ----"
PrintTags
If ThisWorkbook.Names.Count > 0 Then
For Each nameItem In ThisWorkbook.Names
If nameItem.Name = "a" Then
Debug.Print "---- Löschen ----"
Debug.Print nameItem.Index & " - " & nameItem.Name & " - " & nameItem.RefersTo & " - " & nameItem.Visible & " - " & nameItem.Comment
nameItem.Delete
End If
Next nameItem
End If
Debug.Print "---- Nach Löschen ----"
PrintTags
End Sub

Das kommt bei mir dabei raus:
---- Vor Löschen ----
1 - Tabelle1!a - =Tabelle1!$B$2 - Wahr - nur auf Tabelle
2 - a - =Tabelle1!$A$1 - Wahr - Auf Mappe
---- Löschen ----
2 - a - =Tabelle1!$A$1 - Wahr - Auf Mappe
---- Nach Löschen ----
1 - a - =Tabelle1!$A$1 - Wahr - Auf Mappe
Die letzte Zeile hätte aber wie folgt heißen müssen:
1 - Tabelle1!a - =Tabelle1!$B$2 - Wahr - nur auf Tabelle
? Was übersehe ich?
Vielen Dank, Norman

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Dim i As Integer Start: With ThisWorkbook For i = 1 To .Names.Count Debug.Print .Names(i).Index & _ " - " & .Names(i).Name & _ " - " & .Names(i).RefersTo & _ " - " & .Names(i).Visible & _ " - " & .Names(i).Comment If .Names(i).Name = "Norman" Then MsgBox "globabler Norman wird gelöscht" .Names(i).Delete GoTo Start End If Next End With End Sub

Sub listnames() Dim ws As Worksheet, wb As Workbook Dim sN As Name If Application.Names.Count > 0 Then Debug.Print "************* App Names ********************" & vbCrLf For Each sN In Application.Names Debug.Print "APP.Name: " & sN & vbCrLf & " Value: " & sN.Value & vbCrLf Next If Application.Names.Count > 0 Then Debug.Print "************* End App Names ********************" & vbCrLf For Each wb In Workbooks ' If wb.Name "Personal.xlsb" Then If wb.Names.Count > 0 Then Debug.Print "-------------- end " & wb.Name & " --------------" & vbCrLf; "" For Each sN In wb.Names Debug.Print "wb= " & wb.Name & " Name: " & sN.Name & vbCrLf & " Value: " & sN.Value & vbCrLf Next If wb.Names.Count > 0 Then Debug.Print "-------------- end " & wb.Name & " --------------" & vbCrLf; "" For Each ws In wb.Worksheets If ws.Names.Count > 0 Then Debug.Print "-------------- end " & ws.Name & " --------------" & vbCrLf; "" For Each sN In ws.Names Debug.Print "ws= " & ws.Name & " Name: " & sN.Name & vbCrLf & " Value: " & sN.Value & vbCrLf Next If ws.Names.Count > 0 Then Debug.Print "-------------- end " & ws.Name & " ----------------" & vbCrLf Next ' End If Next End Sub

Hallo ihr Beiden :)
ich glaube ich brings irgendwie nicht richtig rüber. Das Element finde ich. Es ist auch kein Code-Fehler soweit ich das erkennen kann.
DELETE geht nicht :) Schaut Euch doch einfach mal die Datei an, die ich beigelegt habe: Wenn Ihr einen Weg findet, den Namen "a" per VBA zu löschen und den Namen "Tabelle1!a" nicht, dann postet die Lösung :)
Die beiden Namen habe ich einfach über den Namensmanager eingetippt.
PS: Kam eben mal auf die Idee den Makrorekorder einzuschalten, wenn ich "a" manuell lösche (was nebenbei im Namensmanager ohne Fehler (!) funktioniert). Das ist das aufgezeichnete Makro:
ActiveWorkbook.Names("a").Delete
Das geile ist, wenn man die Datei dann neu lädt (damit wieder beide Namen da sind) und die Zeile dann in VBA ausführt, wird auch der falsch Name gelöscht. Ich denke Mal, damit ist der Microsoft Bug dann final nachgewiesen.
Tja, ist halt wie es ist, Bug ist Bug :) Oder findet noch jemand einen Weg, den "richtigen" Namen per VBA zu löschen?
Viele Grüße
Norman

Option Explicit Sub DeleteName(sName As String, Optional bIsValidWBP As Boolean = True) Dim thisName As Name For Each thisName In Names If thisName.Name = sName And _ thisName.ValidWorkbookParameter = bIsValidWBP Then thisName.Delete Next thisName End Sub Sub Test() DeleteName "a" ' Lösche Name bezgl. Arbeitsmappe ' DeleteName "Tabelle1!a", False ' Lösche Name bezgl. Tabelle End Sub

Beliebteste Forumthreads (12 Monate)

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread