Office: Fehler 1004 bei Namen löschen

Hallo liebes Forum
Möchte mich zuerst mal vorstellen. Bin 25 und stamme wie der Name verrät aus der Schweiz und studiere an einer Universität.
Ich habe nun bereits 1 Tag die ganzen Foren durchsucht und habe nichts gefunden was geholfen hat. Ich hoffe ihr könnt mir schnell weiterhelfen, denn die das VBA ist sehr wichtig für eine Arbeit von mir.

Folgendes:
Die Datei hat mehrere Tabellenblätter und ich habe mit cells(x,y).Name="xy" verschiedene Namen vergeben. Meist in Schlaufen und die Namen beziehen sich jeweils auf eine einzige Zelle. Diese Namen brauche ich dann für in andere einzelnen Zellen Formeln auszuführen wie z.B cells(x,x).Formula="=xy*zz"

Es handelt sich bei der Datei um eine Simulation und da wechseln die Namen bei jedem Durchgang, daher habe ich mir überlegt ganz zu Beginn des VBA sämtliche definierten Namen zu löschen. Dies habe ich mit den Code

Dim DefName As Name
For Each DefName In ActiveWorkbook.Names
DefName.Delete
Next DefName

gemacht. Dies lief eigentlich auch relativ lange gut doch nun tut sich ein Problem auf: Es wirft mich jedes Mal in den Debug-Modus bei "DefName.Delete" wegen dem Laufzeitfehler 1004, dass ein Name nicht korrekt sei.

Im Überwachungsfenster zeigt es mir für DefName in dem Fall: "=#Name?" an. Obwohl ich diesen Namen niemals vergeben habe.

Ich hoffe ihr könnt mir bald weiterhelfen, denn die Arbeit muss bald abgegeben werden ;-)

:)

 

Hallo schweizer,

versuche es ganz einfach so:
Code:

Gruß Peter

 

Hey pefeu

DAS ist ja perfekt. Vielen Dank. Nun funktioniert es wieder einwandfrei. Das Problem war wohl eine Tabelle (Name war Tabelle5) die ich jeweils erstellte die natürlich von Excel einen Namen zugewiesen bekam der nicht gelöscht werden darf, soweit ich das verstehe.

 

Ich wende mich nun nochmals schnell an euch.

Der Code funktioniert einwandfrei. Nun eine kleine Frage:

Ist es eventuell irgendwie möglich die Anzahl der definierten Namen im Workbook zu ermitteln.
Oder noch besser: Kann man die definierten Namen für jeweils nur 1 Tabellenblatt löschen?

Ich bräuchte etwas von dem um ein Progressbar einzufügen. Besser wäre natürlich wenn ich jeweils pro Tabellenblatt die Namen löschen kann. Etwas in der Art

Dim t as Worksheet
Dim defNames as Name

For each t in ActiveWorkbook.Worksheets
For each defName in t.names

und dann so weiter

Momentan überspringt es mir jeweils das löschen.

Liebe Grüsse

 

hie werden alle Namen einer Tabelle markiert. Das löschen dürfte ja kein Problem sein.
Code:

 

Hallo

ich habe Hajos Code mal ein bischen entschlackt Code:

Gruß von Luschi
aus klein-Paris