Jeder Zelle einer Tabelle automatisch Namen geben

Barbara · 2014-07-30T20:02:38+00:00

Hallo ich würde gerne jede Zelle einer Tabelle mit einem Namen versehen, der aus den Zellen der ersten Spalte und obersten Zeile zusammen gesetzt ist. Unten ein Beispiel, das sich aber auf einen bestimmten Bereich bezieht, das ich in diesem Forum _ gefunden habe. Sub ErstelleNamen() Dim Rng As Range, C As Range Set Rng = Range("B5:P11") For Each C In Rng C.Name = Cells(C.Row, 1) & "_" & Cells(1, C.Column) Next Set Rng = Nothing End Sub Kann man das so ändern, dass es sich auf eine bestimmte Tabelle bezieht. Sie hat den Namen "Bereich". Außerdem sollen sich die Namen automatisch aktualisieren, sobald ich in einer namensgebenden Zelle in der ersten Spalte oder Zeile einen anderen Text eintrage. Dabei sollen die verwaisten Namen gelöscht werden. Es soll eine Meldung kommen, wenn - der Eintrag zu einer unzulässigen Namensbildung führt (wenn zum Beispiel ein Leerzeichen darin vorkommt). Aber die Namensgebung soll fortgesetzt werden. Denn sonst könnte man nicht die Tabelle vergrößern, weil ja da automatisch ein leerer Zeilen- oder Spaltenkopf entsteht. - der Name bereits vergeben ist, wobei dieser bestehen bleiben soll. Dann muss man eben was anderes in diese Zelle schreiben. Vielen Dank. LG, Barbara

Liebe Barbara,
Du hast mich Nerven gekostet!
Kannst natürlich nichts dafür, daß die Geschichte gar nicht so simpel ist.
Zunächst bitte ich um Entschuldigung, daß ich Dich unterschätzt habe; Du hast mir im Gegenteil was voraus: Word-VBA, außerdem diese Tabelle in der Tabelle - auf so eine Idee käme ich gar nicht.
Ich habe ein bißchen recherchiert und herumprobiert und sende Dir anbei die Tabelle mit den Ergebnissen.
Ich ermittle mit einigen Formeln, ob Fehler zu erwarten sind: a) doppelte Zeilenbeschriftung, b) Zeilenbeschriftungen enthalten Leerzeichen und c) es ist gar keine Beschriftung vorhanden. Die stehen jetzt natürlich "mittendrin", aber es sollte kein Problem sein, die irgendwohin zu schaufeln, wo sie nicht stören. (Ich habe Matrixformeln eingesetzt; die {} werden nicht eingegeben, sondern von Excel erzeugt, wenn man das Editieren mit Strg-Shift-Enter abschließt).
Ich habe sie "bedingt formatiert", und Du könntest Dir überlegen, die Beschriftungen selbst bedingt zu formatieren oder eine Hilfsspalte zu verwenden, damit Du gleich siehst, wo die Fehler sind.
Die Werte habe ich im dazugehörigen Makro abgefragt und gebe sie nur aus - die Anpassung für Deinen Bedarf überlasse ich erst Mal Dir.
Ich habe die Funktionen auf Schaltflächen gelegt:
a) die Erzeugung der Namen, fast ungeändert eben Deine Routine
b) Anzeige der vorhandenen Namen unterhalb Deiner Tabelle
c) Löschen ALLER Namen
Spiel bitte mal damit herum...
Zur Logik: so weit ich das überblicke, werden die Namen ohne Bezug auf ein bestimmtes Tabellenblatt ausgegeben (bzw. intern gehandelt); das bedeutet, daß eventuelle Namen in anderen Blättern mitgelöscht werden, was unschön ist. Um das zu umgehen, könntest Du noch eine Konvention verwenden, die bei der Erzeugung der Namen etwa jedem Bereich die Nr. des Tabellenblattes voransetzt, die Du beim Löschen der Namen abfragst.
Ich hoffe, daß Du mit der Lösungsskizze was anfangen kannst, denn Du wolltest es ja schon bei der Eingabe "vollautomatisch" haben. Es ist halt ein Akt, alle Ereignisse abzufragen.
Mit dieser "halbautomatischen" Lösung sollte man ja auch arbeiten können, denn das Makro wird ja sicher händisch aktiviert, wenn die Eingaben gemacht wurden und übernommen werden sollen.
Oder andersherum: Du kannst ja die drei Fehlerwerte evtl. von Word aus abfragen und dann reagieren.
Also hier die Datei:

Die Datei https://www.herber.de/bbs/user/91828.xlsm wurde aus Datenschutzgründen gelöscht

Happy Exceling,
Michael

Hallo Michael,
danke für Dein ausführliches Beispiel.
Eine Frage zu den Schaltflächen:
Wo kann man in der Datei sehen, welches Makro mit der Schaltfläche aufgerufen wird?
Ich habe nun ein Makro erstellt, das fast meinen Vorstellungen entspricht.
https://www.herber.de/bbs/user/91837.xlsm
Es ist mit "ErstelleNamen2()" bezeichnet und ist im Modul "Diese Arbeitsmappe" zu finden.
Jeder Name beginnt mit "B_".
Ganz leere Zellen werden bei der Überprüfung ignoriert.
Ein Fehler bei der Bezeichnung, der nicht aus Leerzeichen herrührt, wird angezeigt. Ich weiß zwar nicht, wann das sein kann, aber sicher ist sicher.
Wenn die Tabelle um eine Spalte erweitert wird, kommt automatisch eine Spaltenbezeichnung dazu. Also ganz leere Bezeichnungen wird es nicht geben.
Was noch zu machen wäre:
- Ein Button zum Aufrufen dieses Makros, positioniert in der Ecke links oben genau in die Zelle.
- Löschen aller Namen, die mit "B_" beginnen, bevor die neuen gesetzt werden.
- Die Messageboxen sind nicht sehr praktisch. Besser wäre vielleicht ein Fenster mit allen Meldungen, das aber stehen bleiben kann, wenn man die Korrekturen vornimmt und dann wieder verschwindet, wenn alles OK ist.
Kriegst Du das hin? Ich habe da zu wenig Kenntnisse in VBA.
Tabelle in Tabelle:
Die bekomme ich mit Einfügen - Tabelle. Finde ich sehr praktisch, weil sich der benannte Bereich von selbst anpasst und die Hintergrundmalerei nachgezogen wird, wenn ich die Ecke unten rechts verändere. Außerdem lässt sie sich einfach verschieben.
Das Makro im Word_Dokument:
Es fragt für jede vorkommende Textmarke nach, wie der Wert des gleichnamigen Zellinhalts in der Excel-Datei ist und setzt ihn in die Textmarke. Jede Textmarke kann nur einmal vorkommen. Und ein Name in Excel kann auch nicht doppelt vorkommen.
LB,
Barbara

Jeder Zelle einer Tabelle automatisch Namen geben

Forumthread: Jeder Zelle einer Tabelle automatisch Namen geben

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial