Office: Excel Zellnamen per makro ändern

Hallo Community,

ich beschäftige mich gerade mit der Umbenennung von Zellnamen:
Und zwar möchte ich auf jedem meiner Tabellenblätter (mit ein paar Ausnahmen) den Zellnamen L75 in LASTDATE ändern

Manuell geht das ganz gut, nur habe ich es noch nicht geschafft, sie automatisch ändern zu lassen.

Dies ist mein Ansatz:

Code:

Die Application.Goto Variante habe durch ein aufgezeichnetes Makro geholt.

Leider komme ich hier nicht mehr weiter...

Bin auf jeden Fall für jeden Tipp sehr dankbar!

Viele Grüße
Hias

:)

 

Hi,

bei dir fehlt der Bezug zum betreffenden Tabellenblatt:

Code:

 

Hi Beverly,

vielen Dank für die schnelle Antwort!
Hab es soeben ausprobiert, leider ändert dieses Makro den Zellnamen nur am letzten Tabellenblatt.

Wie kann das sein?

Viele Grüße
Hias

 

Hi Hias,

Das kann ich nicht sagen, da ich deinen aktuell verwendeten Code nicht kenne - bei mir wird der Name für die Zelle in jedem Tabellenblatt geändert.

 

Ich habe mich mal schlau gemacht und herausgefunden dass Namen immer nur einmalig vergeben werden können. Dies ist evtll. der Grund?

Anbei mal eine Beispielmappe mit 4 Tabellenblätter und deinen Makro in Modul 1.

Auch hier wird nur bei Tabelle4 der Name geändert. Bei den anderen Tabellenblätter bleibt der Zellname bei L75.

Viele Grüße
Hias

 

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel, Fehler, Kalender usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Der Makrorecorder hilft auch.

Code:

 

Hallo Hias,

so gehts bei mir: Code:

Der Makrorekorder und ein alter Thread (http://www.ms-office-forum.net/forum...d.php?t=276434) haben mir dabei geholfen...

 

Hi Hias,

dann so:

Code:

 

Super danke!

Nun funktioniert es!

Führt mich aber zu meinen nächsten Problem:

Ich habe ich Workbookbeforeclose einen Code drin stehen, welcher alle Namen löscht bevor die Mappe geschlossen wird. (Grund ist ein Namenskonflikt bei doppelten Filternamen in deutsch und englisch)

Code:

Wie kann ich diesen Code verändern, dass er zwar alle Namen löscht aber nicht die festgelegten von mir (LASTDATE; NEXTDATE, TYP, usw)

Insgesamt sind es 6 Namen.

Viele Grüße
Hias

 

Hallo Hias,

ruf im Löschmakro am Ende das Makro NamenZuweisen auf. Code:

 

Hi Hasso,

die Idee hatte ich auch, möchte ich aber gerne vermeiden, da dies meine liste nur verlangsamt. Immerhin müssen die 6 Namen für jedes Tabellenblatt festgelegt werden (und es sind über 500 Blätter)

Gibt es eine Möglichkeit mit:

FilterName.Delete Außer Meine 6 Namen?


Viele Grüße
Hias

 

das kannst Du doch analog anwenden!
http://www.ms-office-forum.de/forum/...27&postcount=3

 

Hi Hias,

prüfe doch einfach die Namen und lösche die nicht gewünschten:

Code:

 

Hi Earl Fred,

das ist richtig, habe ich probiert! (leider erfolglos, da meine Programmierkenntnisse nicht so gut sind)
Ich war auf der Suche nach eine Alternative und da bietet sich die Select Case Variante an, da Sie meiner Meinung etwas leichter zu verstehen ist.



Hi Beverly,

ich habe den Code mal getestet, leider hat er erst nicht funktioniert. Ich habe die Zeile Case Else herausgelöscht, nun funktioniert es!

Somit haben wir mit folgenden Code die Lösung:



Code:

 

Hi Hias,

dein Code bedeutet aber, dass die angegebenen Namen gelöscht werden - in deinem vorhergehenden Beitrag hattest du geschrieben, dass alle AUßER den genannten Namen gelöscht werden sollen...