Microsoft Excel

Herbers Excel/VBA-Archiv

Namen Löschen aus aktivem Blatt

Betrifft: Namen Löschen aus aktivem Blatt von: Heinz
Geschrieben am: 16.08.2004 21:49:51

Hallo Excel-User,

habe vor einige Zeit einen Weg aus dem Forum notiert,
wie man die vergebenen Namen aus einem Tabellenblatt
entfernen kann (also nicht aus der ganzen Datei).

Dim n As Name
For Each n In ActiveSheet.Names
n.Delete
Next

Das Problem: Das funktiniert (bei mir) nicht.
Was mache ich falsch?

Heinz

  


Betrifft: AW: Namen Löschen aus aktivem Blatt von: Ramses
Geschrieben am: 16.08.2004 21:55:58

Hallo

probiers mal so

Option Explicit

Sub Remove_Names_in_ActiveSheet()
Dim n As Name
For Each n In ThisWorkbook.Names
    Debug.Print n.RefersTo
    Debug.Print Mid(n.RefersTo, 2, InStr(1, n.RefersTo, "!") - 2)
    If Mid(n.RefersTo, 2, InStr(1, n.RefersTo, "!") - 2) = ActiveSheet.Name Then
        n.Delete
    End If
Next
End Sub


Gruss Rainer


  


Betrifft: Perfekt!!! o.T. von: Heinz
Geschrieben am: 17.08.2004 13:35:42

...


 

Beiträge aus den Excel-Beispielen zum Thema "Namen Löschen aus aktivem Blatt"