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.

Es gibt jedoch Probleme mit dem RidOfNames-Makro. Es wird nicht überall überprüft, ob ein Name verwendet werden kann. Beispielsweise wird nicht bestimmt, ob Namen in einem Makro referenziert werden oder ob sie in anderen Arbeitsblättern (einschließlich versteckter Arbeitsblätter) in Ihrer Arbeitsmappe verwendet werden. Es wird auch nicht überprüft, ob ein bestimmter Name in einer bedingten Formatierungsregel oder in Diagrammen, Dropdown-Listen und anderen Objekten verwendet wird. Trotz der Nachteile kann RidOfNames in einfachen Arbeitsmappen Wunder wirken, die keine anderen Makros (außer diesem) enthalten und die meisten ihrer Daten in einem einzigen Arbeitsblatt enthalten.

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 (10998) gilt für Microsoft Excel 2007, 2010 und 2013. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: Finding Unused Names.