Namen Löschen aus aktivem Blatt

Forumthread: Namen Löschen aus aktivem Blatt

16.08.2004 23:49:51

Heinz

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Namen Löschen aus aktivem Blatt

Ramses
Perfekt!!! o.T.

17.08.2004 15:35:42

Heinz

AW: Namen Löschen aus aktivem Blatt

Ramses

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

Perfekt!!! o.T.

17.08.2004 15:35:42

Heinz

...

Forumthread: Namen Löschen aus aktivem Blatt

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread