expertenaustausch > microsoft.* > microsoft.excel

Dennis Horstmann (28.02.2006, 19:24)
Hallo liebe Newsgroupgemeinde,

gibt es in Excel eine Möglichkeit Registernamen und Zellen zu verknüpfen, am
besten auch noch gegenseitig?

Beispiel: Ich habe in einem Inhaltsregister alle Register aufgeführt, die in
der Arbeitsmappe enthalten sind. Wie kann ich das machen, dass wenn ich den
Namen eines Registers ändere, sich automatisch auch der Registername im
Inhaltsverzeichnis ändert?

Ist es auch möglich, dass so einzustellen, dass sich der Registername
ändert, wenn man den namen im Inhaltsverzeichnis ändert?

Ich hoffe ich habe mich verständlich ausgedrückt.

Vielen Dank für eure Hilfe

Dennis
Hajo (28.02.2006, 19:53)
Hallo Dennis,

schaue mal auf meine HP Seite ohne VBA


Gruß Hajo
MVP für Microsoft Excel
Betriebssystem XP Pro SP2 und Excel Version 2003 SP2.


"Dennis Horstmann" <DennisHorstmann> schrieb im
Newsbeitrag news:a8b0
[..]
Dr. Stephan Kassanke (28.02.2006, 19:54)
"Dennis Horstmann" <DennisHorstmann> schrieb im
Newsbeitrag news:a8b0
[..]
> Ich hoffe ich habe mich verständlich ausgedrückt.
> Vielen Dank für eure Hilfe
> Dennis


Hallo Dennis,

die folgende Formel liefert Dir einen Ansatz zum Abgreifen des Blattnamens
fes aktuellenTabellenblatts (die Mappe muss bereits gespeichert sein):

=TEIL(ZELLE("Dateiname";A1);FINDEN("]";ZELLE("Dateiname";A1))+1;LÄNGE(ZELLE("Dateiname" ;A1))-FINDEN("]";ZELLE("Dateiname";A1)))

Du kannst den Bezug A1 jeweils um den Blattnamen ergänzen, um aus Deiner
Übersicht, die einzelnen Blätter anzusprechen. Der Weg der Umbenennung der
Blätter ist damit allerdinsg nicht zu machen. Hier bleibt m.E. nur der Weg
zu VBA.

viele Grüße,

Stephan
Helmut Fischer (28.02.2006, 19:58)
Hallo Dennis,

"Dennis Horstmann" <DennisHorstmann> schrieb im
Newsbeitrag news:a8b0
> Hallo liebe Newsgroupgemeinde,
> gibt es in Excel eine Möglichkeit Registernamen und Zellen zu verknüpfen, am
> besten auch noch gegenseitig?


(A)

> Beispiel: Ich habe in einem Inhaltsregister alle Register aufgeführt, die in
> der Arbeitsmappe enthalten sind. Wie kann ich das machen, dass wenn ich den
> Namen eines Registers ändere, sich automatisch auch der Registername im
> Inhaltsverzeichnis ändert?


(B)

> Ist es auch möglich, dass so einzustellen, dass sich der Registername
> ändert, wenn man den namen im Inhaltsverzeichnis ändert?
> Ich hoffe ich habe mich verständlich ausgedrückt.
> Vielen Dank für eure Hilfe
> Dennis


(A)
mit VBA kannst du in einer For Each-Schleife die Worksheets durchlaufen.
Auf die Schnelle aus dem Halfter:

dim dingens as Worksheet
For Each Dingens In Worksheets

strMelder = strMelder & vbCrLf & "Tabelle: " & Dingens.Name

Next

msgbox strMelder

Anstatt die Tabellenamen in einer Meldung auszugeben schreibst Du diese halt
an die gewünschte Stelle Deines Inhaltsregisters.
die Frage ist, an welches Ereignis Du diese kleine Routine hängst. Das hängt
aber von Dir bzw Deinen Anforderungen ab.

(B)
ich befürchte Dingens.Name (im obigen Beispiel) ist ReadOnly. Bin aber nicht
sicher und gebe daher weiter an den nächsten oder an morgen ;->

Gudd Lack

Helle
Alexander Wolff (28.02.2006, 19:58)
Dennis Horstmann schrieb unlängst:

> Hallo liebe Newsgroupgemeinde,
> gibt es in Excel eine Möglichkeit Registernamen und Zellen zu
> verknüpfen, am besten auch noch gegenseitig?
> Beispiel: Ich habe in einem Inhaltsregister alle Register aufgeführt,
> die in der Arbeitsmappe enthalten sind. Wie kann ich das machen, dass
> wenn ich den Namen eines Registers ändere, sich automatisch auch der
> Registername im Inhaltsverzeichnis ändert?
> Ist es auch möglich, dass so einzustellen, dass sich der Registername
> ändert, wenn man den namen im Inhaltsverzeichnis ändert?
> Ich hoffe ich habe mich verständlich ausgedrückt.


?Einfügen Namen Definieren NurBlatt

bezieht sich auf:

=WECHSELN(DATEI.ZUORDNEN(76);"["&DATEI.ZUORDNEN(88)&"]";"")

Schreibe =NurBlatt in jedes zu berücksichtigende Blatt und verlinke das
Inhaltsverzeichnis auf diese Zellen.

Benötigst Du auch die Zelle, schreibst Du stattdessen
=NurBlatt&"!"&Adresse(...), bezogen auf eine Nachbarzelle.
Thomas Ramel (28.02.2006, 21:32)
Grüezi Dennis

Dennis Horstmann schrieb am 28.02.2006

> gibt es in Excel eine Möglichkeit Registernamen und Zellen zu verknüpfen, am
> besten auch noch gegenseitig?


Ersteres ja, letzteres nein.

> Beispiel: Ich habe in einem Inhaltsregister alle Register aufgeführt, die in
> der Arbeitsmappe enthalten sind. Wie kann ich das machen, dass wenn ich den
> Namen eines Registers ändere, sich automatisch auch der Registername im
> Inhaltsverzeichnis ändert?


Vergib einen Bereichsnamen mit folgendem Inhalt:

-- Menü: 'Einfügen'
--> Name
--> Definieren:
--> Namen in der Arbeitsmappe: Tabellen
--> Bezieht sich auf: ARBEITSMAPPE.ZUORDNEN(1)
--> [Hinzufügen]
--> [OK]

Verwende dann folgende Formel in einem Tabellenblatt (den Bezug ganz anm
ende musst Du auf die gesuchte Zelle anpassen):

=WENN(ZEILEN($1:1)>ANZAHL2(Tabellen);"";TEIL(INDEX (Tabellen;ZEILEN($1:1));FINDEN("]";INDEX(Tabellen;ZEILEN($1:1)))+1;99))

Zieh die Formel hinunter bis alle Tabellen angezeigt werden oder Du
genügend Reserve für sie weiteren Tabellen hast.

> Ist es auch möglich, dass so einzustellen, dass sich der Registername
> ändert, wenn man den namen im Inhaltsverzeichnis ändert?


Das müsstest Du dann per VBA realisieren.

Mit freundlichen Grüssen
Thomas Ramel
Dennis Horstmann (28.02.2006, 21:53)
Vielen, vielen Dank für euere schnelle und kompetente Hilfe!

Es klappt :-) !

Schöne Grüße

Dennis
Helmut Fischer (01.03.2006, 12:05)
Dennis,

"Dennis Horstmann" <DennisHorstmann> schrieb im
Newsbeitrag news:7688
> Vielen, vielen Dank für euere schnelle und kompetente Hilfe!
> Es klappt :-) !
> Schöne Grüße
> Dennis


die Worksheet.name Eigenschaft ist nicht wie befürchtet ReadOnly, sondern
kann geschrieben werden, somit hier ein STück VBA zur Vervollständigung:

Sub TabellennamenSchreiben()
Dim oSheet As Worksheet
Dim intCount As Integer
intCount = 1

Worksheets(1).Activate

For Each oSheet In Worksheets

Worksheets(intCount).Name = Cells(intCount, 1)
intCount = intCount + 1

Next

End Sub

Gruss

Helle

Ähnliche Themen