Ungültige Namen in ActiveWorkbook.names

Hallo,
vielleicht kann mir hier jemand helfen.
Ich habe mehrere hundert Excel-Dateien mit zum Teil verhunzten Namen. Entweder enthält refersTo einen Fehler oder der Name selbst ist irgendwie ungültig. Das macht mir bei anderen VBA Aktionen mit diesen Dateien Probleme.
Also wollte ich ein VBA schreiben, welches jede Datei öffnet und alle Namen aus der Datei rauslöscht und dann die Datei speichert. Habe dazu verschiedenste Code-Schnipsel gefunden, die aber alle nur bedingt funktionieren. Z.B. dieses
For y = ActiveWorkbook.Names.Count To 1 Step -1
Set n = ActiveWorkbook.Names(y)
n.Delete
Next y
Das rennt wie alle anderen Schnipsel am Ende in einen Makro-Fehler:
Der eingegebene Name ist ungültig.
Mögliche Gründe:
-Der Name beginnt nicht mit einem Buchstaben oder einem Unterstrich
-Der Name enthält ein Leerzeichen oder sonstige ungültige Zeichen
-Der Name steht in Konflikt mit einem integrierten Excel-Namen oder dem Namen eines anderen Objekts in der Arbeitsmappe
Wenn ich mit obigen Code in Einzelschritten debugge, durchläuft das Makro von hinten nach vorn die Namensliste bis zum Fehler. Die Variable n enthält seltsamerweise nicht den Namen des Namens sondern den Bezug. Beim Auftreten des Fehlers hat n den Wert "=NAME?".
Wenn ich den Namensmanager der bearbeiteten Datei an diesem Punkt aufrufe sind alle Namen (viele mit Referenzfehlern etc.) weg, einer ist übrig:
Name: Drucktitel
Wert: #BEZUG!
Bezug: ='H:\GVM\...\[Beispiel.xls]TestTab'!#BEZUG!
Ist das der den Fehler auslösende Name? Ein direktes Löschen dieses Namens per
ActiveWorkbook.Names("Print_Title").Delete
läuft jedenfalls auch in einen Makro-Fehler.
Es scheint so, dass alleine das "Ansprechen" dieses Namens zu einem Fehler führt.
Seltsamer weise klappt das Löschen aller Namen manuell im Namensmanger ohne Probleme. Alles markieren - Löschen - OK
Was kann ich tun?
Danke im Voraus.
Johannes

Hallo Johannes,
es gibt auch interne unsichtbare Namen die Excel direkt vergibt.
Diese kann man zum Teil nicht löschen, weil sie angelegt werden, um die Kompatibilität zu älteren Excelversionen herzustellen. dazu gehört zum Beispiel auch die Funktion "_xlfn.IFERROR", Deutsch: WENNFEHLER.
Deshalb solltest du die ausgeblendeten nicht versuchen zu löschen.
Es gibt zwar auch weniger kritische Namen, wie zum Beispiel solche für den Autofilter, aber ich würde an deiner Stelle trotzdem die Finger davon lassen.
Ansonsten ist es meist günstiger, wenn man die Objekte vom Ende der AUflistung her löscht, also rückwärts zählend Richtung 1.
Gruß
Franz

Sub NamenLoeschen()
Dim wkb As Workbook
Dim objName As Name, intC As Integer
Set wkb = ActiveWorkbook
For intC = wkb.Names.Count To 1 Step -1
Set objName = wkb.Names(intC)
With objName
If .Visible = True Then
If InStr(1, .RefersToLocal, "#BEZUG!") > 0 Or InStr(1, .RefersTo, "#REF!") > 0 Then
.Delete
End If
Else
If Left(.Name, 6) = "_xlfn." Then
'Namen mit Verweise auf Excelfunktionen nicht löschen
ElseIf InStr(1, .Name, "!_FilterDatabase") > 0 Then
'Namen mit Verweis auf Autofilterbereiche nicht löschen
Else
.Delete
End If
End If
End With
Next
End Sub

Ungültige Namen in ActiveWorkbook.names

Forumthread: Ungültige Namen in ActiveWorkbook.names

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial