Office: (Office 2007) VBA: Löschen aller zugeordneten "definierten Namen"

Hallo Forum
gibt es eine Möglichkeit über VBA alle zugeordneten "definierten Namen" auf einmal zu löschen?

Gut wäre, wenn ich nur die Namen löschen könnte, die im Bereich Arbeitsmappe enthalten.

Vielen Dank im Voraus

Gruß
Anton

:)

 

Hallo Anton,

alle auf einmal geht nicht, aber in einer Schleife nacheinander schon:
Code:

Was genau Du mit diesem Frageteil meinst, verstehe ich allerdings nicht:

Könntest Du das eventuell nochmal anders beschreiben, welche Namen nicht betroffen sein sollen?

Grüße
EarlFred

 

Hallo EarlFred,

vielen Dank für Deine Antwort. Ich habe mal eine Grafik des Namensmanager angehängt. Ich würde gerne alle Namen löschen mit Pfad__. Diese lassen sich unterscheiden durch den Bereich "Arbeitsmappe". Ich dachte eventuell kann mn diese Abfragen.

Ich habe feste Buchstaben am Ende und eine vortlaufende Variable als Zahl.

Bsp.:
Pfad_1_O
Pfad_1_P
.....
Pfad_2_O
Pfad_2_P
... usw.

Die würde ich gerne alle Löschen.

Hast Du eine Idee

Gruß
Anton

 

Hi Anton,
Code:

 

Hallo Anton,

was nun? Beginnen mit "Pfad_" oder sind auf Ebene der Mappe definiert?

Die Frage ist mir immer noch nicht klar, daher einfach mal eine neuer Versuch ins Blaue:

Der Code löscht alle Namen, die mit "Pfad_" beginnen und die auf Ebene der Mappe definiert sind:
Code:

Sollen alle, die mit "Pfad_" beginnen auf Ebene der Tabellenblätter gelöscht werden, dann eben so:
Code:

Sollen alle auf Ebene der Mappe gelöscht werden, dann den ersten Code nehmen und die Abfrage mit "Left(...)" entfernen und direkt löschen.

Grüße
EarlFred

 

sorry ich habe das Foto vergessen. Ich hoffe es wird so klarere.
Ich würde gerne die Druckbereiche behalten. Aber nur wenn der Aufwand nicht zu groß ist.

Gruß
Anton

 

Hallo Anton,

dann sollte die Abfrage nach "Pfad_" im Namen reichen - wozu dann noch weiter unterscheiden????

Die Kunst besteht oftmals darin, sich auf das Wesentliche zu beschränken, ohne das Nötige zu unterschlagen... *wink.gif*

Grüße
EarlFred

 

Hi Anton,

hast du meinen Code schon getestet?

 

Vielen Dank für die Hilfe,

die beiden Makros von EarlFred funktionieren bei mir nicht, die liefen leider in eine Endlosschleife. Ich habe jetzt aber auch nicht weiter nachgeforscht was es sein könnte.

Das Makro von Beverly funktionierte sehr gut. Es hat genau die Punkte gelöscht die es löschen sollten.

Super und vielen Danke an euch beiden für die Hilfe.

Gruß
Anton

 

Hallo Anton,

Das interessiert mich aber nun doch, wo mein Codes in eine Endlosschleife laufen sollen... Könntest Du da vielleicht doch mal nachforschen?

Grüße
EarlFred

 

Hallo EarlFred,

das Makro 1 funktioniert doch, ich hatte es nur auf einem langsamen PC mit Excel 2003 ausprobiert und war zu ungeduldig -> Tschuldigung

Makro 2 überspring immer den Befehl zum löschen siehe Screeshot

Anton

 

Hallo Anton,

OK, das erklärt es dann wohl *wink.gif*
Die Namen musst Du nunmal alle "abklappern" - je nach Anzahl kann das halt dauern.

Dass das 2. Makro den Löschbefehl überspringt ist hingegen auch klar, wenn keine Namen auf Ebene von Tabellenblättern definiert sind - die prüfende Bedingung wird dann ja nie erfüllt.

Alles klar. Danke!

Grüße
EarlFred

 

Nochmals vielen Dank!!!

Bis bald

 

Hallo Anton,

danke auch für die Rückmeldung!

Grüße
EarlFred