Richard hat eine Arbeitsmappe, die er schon eine Weile verwendet, und sie enthält einige Namen (benannte Bereiche, benannte Formeln usw.). Er fragt sich, ob es einen einfachen Weg gibt, Namen zu finden, die überhaupt nicht verwendet werden, da er diese Namen gerne loswerden möchte.

Es gibt keine integrierte Möglichkeit, diese nicht verwendeten Namen zu entfernen. Sie können jedoch ein Makro erstellen, das den Trick für Sie erledigt. Dies ist am einfachsten, wenn Sie mithilfe der Find-Methode herausfinden, welche Namen Referenzen haben, die „gefunden“ werden können. Wenn die Referenz nicht gefunden werden kann, wird der Name nicht verwendet.

Sub RidOfNames()

Dim myName As Name     Dim fdMsg As String

On Error Resume Next     fdMsg = ""

For Each myName In Names         If Cells.Find(What:=myName.Name, _           After:=ActiveCell, _           LookIn:=xlFormulas, _           LookAt:=xlPart, _           SearchOrder:=xlByRows, _           SearchDirection:=xlNext, _           MatchCase:=False, _           SearchFormat:=False).Activate = False Then             fdMsg = fdMsg & myName.Name & vbCr             ActiveWorkbook.Names(myName.Name).Delete         End If     Next myName     If fdMsg = "" Then         MsgBox "No unused names found in the workbook"

Else         MsgBox "Names Deleted:" & vbCr & fdMsg     End If End Sub

Das Makro durchläuft alle Elemente der Names-Auflistung und sucht nach jedem Namen. Wenn der Name nicht gefunden werden kann, wird der Name gelöscht. Wenn das Makro abgeschlossen ist, wird ein Meldungsfeld angezeigt, in dem die Namen aufgeführt sind, die aus der Arbeitsmappe entfernt wurden.

Wenn Sie lieber kein eigenes Makro erstellen möchten, können Sie ein kostenloses Add-In von Jan Karel Pieterse verwenden. Mit dem Add-In namens Name Manager können Sie (raten Sie mal?) Namen besser verwalten als mit nativem Excel. Eine der Funktionen ist die Möglichkeit, nicht mehr benötigte Namen zu entfernen. Das Add-In finden Sie hier:

http://www.jkp-ads.com/OfficeMarketPlaceNM-EN.asp

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3312) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Nicht verwendete Namen finden.