Namen löschen / Syntax
11.02.2013 20:42:15
jörg-hh
ich möchte einige (viele) lokale Namen löschen, die mir wer weiß warum in meine Blätter geraten sind. Dummerweise haben die ähnliche Namen wie globale Namen, die ich nicht löschen möchte (siehe https://www.herber.de/bbs/user/83859.doc)
Da dachte ich mir, das ginge so... aber geht nicht. Kann jemand mir sagen, warum nicht...?
Grüße - Jörg
Sub namen_bereinigen()
Dim ws As Worksheet
Dim nm As Name
For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 4) = "meie" Or Left(ws.Name, 4) = "targ" Then
For Each nm In ws.Names
If Mid(nm.Name, 8, 5) = "Beilg" And Len(nm.Name) = 13 Then
nm.Delete
End If
Next
End If
Next
End Sub