Verknüpfung einer Zelle mit dem Namen des Tabellenblattes

[Flughase]

Hallo,

wäre toll, wenn mir jemand mit meinem Problem helfen kann...

Ich habe eine Arbeitsmappe (Budget) mit einem Deckblatt und verschiedenen
Registern, die alle mit dem Deckblatt verknüpft sind . Auf dem Deckblatt sind
in Zellen Namen eingetragen, die den Namen der Register entsprechen. Nun kann
der User die Namen in den Deckblättern ändern. Jetzt wäre es natürlich toll,
wenn sich dann auch der Name auf dem Register ändert.

Viele Grüsse

Thomas Hesse
Gibt es da eine Möglichkeit den die Zelle mit dem Registernamen zu
verknüpfen??

Vielen Dank im voraus
Gruss

[Thomas Ramel]

Grüezi Flughase

Flughase schrieb am 21.08.2005

Post by Flughase
Ich habe eine Arbeitsmappe (Budget) mit einem Deckblatt und verschiedenen
Registern, die alle mit dem Deckblatt verknüpft sind . Auf dem Deckblatt sind
in Zellen Namen eingetragen, die den Namen der Register entsprechen. Nun kann
der User die Namen in den Deckblättern ändern. Jetzt wäre es natürlich toll,
wenn sich dann auch der Name auf dem Register ändert.
Gibt es da eine Möglichkeit den die Zelle mit dem Registernamen zu
verknüpfen??

Ja, diese gibt es; im folgenden sogar mit einem Hyperlink direkt zum
Tabellenblatt:

Definiere den Namen 'x' (Einfügen/Namen/Definieren) -
unter 'Bezieht sich auf' gibst du ein:
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())

Jetzt schreibe in deinem Übersichtsblatt in irgendeine
Zelle diese Formel und kopiere sie beliebig oft nach unten:

=WENN(ZEILE(A1)>ANZAHL2(x);"";HYPERLINK("#'"&INDEX(x;ZEILE(A1))&"'!A1";TEIL(INDEX(x;ZEILE(A1));FINDEN("]";INDEX(x;ZEILE(A1)))+1;31)))




Mit freundlichen Grüssen
Thomas Ramel

[Flughase]

Vielen herzlichen Dank für die rasche Antwort!

Nun noch eine Frage, geht das auch in der umgekehrten Reihenfolge, dass das
Register nach der Zelle beannt wird? Wäre natürlich genial!
Vielen Dank für die Bemühungen
Thomas Hesse

Post by Thomas Ramel
Grüezi Flughase
Flughase schrieb am 21.08.2005

Post by Flughase
Ich habe eine Arbeitsmappe (Budget) mit einem Deckblatt und verschiedenen
Registern, die alle mit dem Deckblatt verknüpft sind . Auf dem Deckblatt sind
in Zellen Namen eingetragen, die den Namen der Register entsprechen. Nun kann
der User die Namen in den Deckblättern ändern. Jetzt wäre es natürlich toll,
wenn sich dann auch der Name auf dem Register ändert.
Gibt es da eine Möglichkeit den die Zelle mit dem Registernamen zu
verknüpfen??

Ja, diese gibt es; im folgenden sogar mit einem Hyperlink direkt zum
Definiere den Namen 'x' (Einfügen/Namen/Definieren) -
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
Jetzt schreibe in deinem Übersichtsblatt in irgendeine
=WENN(ZEILE(A1)>ANZAHL2(x);"";HYPERLINK("#'"&INDEX(x;ZEILE(A1))&"'!A1";TEIL(INDEX(x;ZEILE(A1));FINDEN("]";INDEX(x;ZEILE(A1)))+1;31)))
Mit freundlichen Grüssen
Thomas Ramel
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)

[Peter Wolber]

Flughase schrieb:

Hallo Thomas,

Post by Flughase
Nun noch eine Frage, geht das auch in der umgekehrten Reihenfolge, dass das
Register nach der Zelle beannt wird? Wäre natürlich genial!

Mit folgendem Makro wird das Registerblatt nach der Zelle A1
beschriftet:

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Klaus-Dieter
If Target = Range("A1") Then
ActiveSheet.Name = Range("A1").Text
End If
End Sub

Gruss
Peter

[Thomas Ramel]

Grüezi Thomas

Flughase schrieb am 21.08.2005

Post by Flughase
Vielen herzlichen Dank für die rasche Antwort!

Aber gerne doch :-)

Post by Flughase
Nun noch eine Frage, geht das auch in der umgekehrten Reihenfolge, dass das
Register nach der Zelle beannt wird? Wäre natürlich genial!

Das klappt nur über eine VBA-Prozedur.
Kopiere folgenden Code in 'Diese Arbeitsmappe', dann wird jedes
Tabellenblatt automatisch nach dem Inhalt der jeweiligen Zelle A1 benannt,
sofern dieser Name nicht bereits verwendet ist:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Value <> "" Then
If Not SheetExists(Target.Value) Then
Sh.Name = Target.Value
Else
Application.Undo
End If
End If
End Sub

Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(strName) Is Nothing
End Function



| [Fullquote von 40tude-Dialog[1] entsorgt]



Mit freundlichen Grüssen
Thomas Ramel


Fussnote(n):
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/

[Flughase]

Hallo Thomas

Vielen vielen Dank für die tolle Hilfe, ich bin ja total
begeistert!!!!!!!!!!!!!!!!

Noch nen schönen Abend

Gruss Thomas

Post by Thomas Ramel
Grüezi Thomas
Flughase schrieb am 21.08.2005

Post by Flughase
Vielen herzlichen Dank für die rasche Antwort!

Aber gerne doch :-)

Post by Flughase
Nun noch eine Frage, geht das auch in der umgekehrten Reihenfolge, dass das
Register nach der Zelle beannt wird? Wäre natürlich genial!

Das klappt nur über eine VBA-Prozedur.
Kopiere folgenden Code in 'Diese Arbeitsmappe', dann wird jedes
Tabellenblatt automatisch nach dem Inhalt der jeweiligen Zelle A1 benannt,
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Value <> "" Then
If Not SheetExists(Target.Value) Then
Sh.Name = Target.Value
Else
Application.Undo
End If
End If
End Sub
Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(strName) Is Nothing
End Function
| [Fullquote von 40tude-Dialog[1] entsorgt]
Mit freundlichen Grüssen
Thomas Ramel
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)

[Thomas Ramel]

Grüezi Thomas

Flughase schrieb am 21.08.2005

Post by Flughase
Vielen vielen Dank für die tolle Hilfe, ich bin ja total
begeistert!!!!!!!!!!!!!!!!

Aber gerne doch - das sind wir Namensvettern uns ja fast schuldig ;-)



| [Fullquote von 40tude-Dialog[1] entsorgt]



Mit freundlichen Grüssen
Thomas Ramel


Fussnote(n):
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/

[Flughase]

Hallo Thomas,
Habe nochmal eine Frage zum Thema:

Ich habe nun ein verlinkte Arbeitsmappe (20 einzelne Register). Wenn ich nun
Dein Programm auch über einen Link anwenden will, d.h. auf Tabellenblatt 1
wird die Aenderung des Registers für z.B. Tabellenblatt 5 nicht vorgenommen.

Hast Du da vielleicht nocmals so einen genialen Trick.

Vielen Dank für die Mühe

Herzliche Grüsse Thomas

Post by Thomas Ramel
Grüezi Thomas
Flughase schrieb am 21.08.2005

Post by Flughase
Vielen vielen Dank für die tolle Hilfe, ich bin ja total
begeistert!!!!!!!!!!!!!!!!

Aber gerne doch - das sind wir Namensvettern uns ja fast schuldig ;-)
| [Fullquote von 40tude-Dialog[1] entsorgt]
Mit freundlichen Grüssen
Thomas Ramel
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)

[Thomas Ramel]

Grüezi Thomas

Flughase schrieb am 01.09.2005

Post by Flughase
Ich habe nun ein verlinkte Arbeitsmappe (20 einzelne Register). Wenn ich nun
Dein Programm auch über einen Link anwenden will, d.h. auf Tabellenblatt 1
wird die Aenderung des Registers für z.B. Tabellenblatt 5 nicht vorgenommen.

Mir ist hier nicht so ganz klar, was Du gerne 'anstellen' willst.

Zum einen haben wir mittels Hyperlinks eine Art Inhaltsverzeichnis
erstellt, mit dessen Hilfe Du zum entsprechenden Blatt hüpfen kannst.

Zum andern gibts die Prozedur, die jedes Tabellenblatt umbenennt, wenn der
Wert in A1 verändert wird.

Die Auflistung in Tabellenblatt 1 kannst Du nicht nutzen um ein Blatt
umzubenennen - sie ist quasi nur ein Abbild deiner Tabellenblätter.
Hiezu müsstest Du ev. eine zweite Spalte verwenden.


Doch schildere bitte etwas ausführlicher, was Du gerne tun wolltest.



| [Fullquote von 40tude-Dialog[1] entsorgt]



Mit freundlichen Grüssen
Thomas Ramel


Fussnote(n):
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/

[Flughase]

Hallo Thomas

Vielen Dankfür Deine rasche Antwort. Sorry für die etwas komplizierte
Bescheribung. Nun ich probiere es nochmals. Also Dein letztes Programm
funktioniert wunderbar. Nun wäre es halt gut folgende Erweiterung zu haben:

Ich habe ein Arbeitsblatt mit ca. 20 Tabellenblättern und dementsprechend
verschiedenen Registernamen. Es handelt sich dabei um ein sehr umfangreiches
Budgetwerk für die Hotelindustry.

Auf dem ersten Tabellenblatt hat der User nun die Möglichkeit in
verschiedenen Feldern die Veranstalter einzutragen, die für jedes Hotel
anders sind. Pro Veranstalter habe ich nun ein eigenes Tabellenblatt
kontruiert, wo die Zimmerpreise etc seperat pro Veranstalter berechnet
werden und dann vie Verknüpfung auf das Deckblatt übertragen werden.

Ich hatte nun versucht mit dem von Dir gesandten Programm folgende
Verknüpfung zu machen:

Nemen wir mal an der Name eines der Verantalters auf Blatt 1 (vom User frei
wählbar) ist die TUI
so gibt der User aud der entsprechenden Zelle (Blatt 1) Tui ein. Darauf wird
mit einer Veknüpfung der die ale Titel dienende Zelle vom entsprechenden
Blatt angeschrieben, sagen wir mal Zelle A1. Nun hatte ich in der Tabelle ja
Deine Formel hinterlegt, so dass damit ja der Reiter angeschrieben werden
sollte. Ohne die netsprechende Verknüpfung mit dem Titelblatt funktioniert
das ja auch bestens, aber sobald ich die Verknüfung "einschalte" wird das
Register nicht von dem Namen (TUI)auf dem 1. Blatt angeschrieben. Es wäre nun
genial, wenn das halt mit der oben beschriebenen Verknüpfung funktioneiren
würde.

ich hoffe, dass ich Dir das Problem nun besser beschreiben konnte.

Herzliche Grüsse

Thomas

Post by Thomas Ramel
Grüezi Thomas
Flughase schrieb am 01.09.2005

Post by Flughase
Ich habe nun ein verlinkte Arbeitsmappe (20 einzelne Register). Wenn ich nun
Dein Programm auch über einen Link anwenden will, d.h. auf Tabellenblatt 1
wird die Aenderung des Registers für z.B. Tabellenblatt 5 nicht vorgenommen.

Mir ist hier nicht so ganz klar, was Du gerne 'anstellen' willst.
Zum einen haben wir mittels Hyperlinks eine Art Inhaltsverzeichnis
erstellt, mit dessen Hilfe Du zum entsprechenden Blatt hüpfen kannst.
Zum andern gibts die Prozedur, die jedes Tabellenblatt umbenennt, wenn der
Wert in A1 verändert wird.
Die Auflistung in Tabellenblatt 1 kannst Du nicht nutzen um ein Blatt
umzubenennen - sie ist quasi nur ein Abbild deiner Tabellenblätter.
Hiezu müsstest Du ev. eine zweite Spalte verwenden.
Doch schildere bitte etwas ausführlicher, was Du gerne tun wolltest.
| [Fullquote von 40tude-Dialog[1] entsorgt]
Mit freundlichen Grüssen
Thomas Ramel
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)

[Thomas Ramel]

Grüezi Thomas

Flughase schrieb am 02.09.2005

Post by Flughase
Vielen Dankfür Deine rasche Antwort. Sorry für die etwas komplizierte
Bescheribung. Nun ich probiere es nochmals. Also Dein letztes Programm

Hmmm, Du meinst den Code, der die Tabellenblätter mit dem jeweiligen Wert
in A1 'beschriftet'?

Post by Flughase
Auf dem ersten Tabellenblatt hat der User nun die Möglichkeit in
verschiedenen Feldern die Veranstalter einzutragen, die für jedes Hotel
anders sind. Pro Veranstalter habe ich nun ein eigenes Tabellenblatt
kontruiert, wo die Zimmerpreise etc seperat pro Veranstalter berechnet
werden und dann vie Verknüpfung auf das Deckblatt übertragen werden.
Nemen wir mal an der Name eines der Verantalters auf Blatt 1 (vom User frei
wählbar) ist die TUI
so gibt der User aud der entsprechenden Zelle (Blatt 1) Tui ein. Darauf wird
mit einer Veknüpfung der die ale Titel dienende Zelle vom entsprechenden
Blatt angeschrieben, sagen wir mal Zelle A1. Nun hatte ich in der Tabelle ja
Deine Formel hinterlegt, so dass damit ja der Reiter angeschrieben werden
sollte.

Hmmm, in der Zelle steht eine Formel?
Diese wird aber nicht in der Lage sein, das Tabellenblatt umzubenennen; das
kann nur per VBA (oder eben von Hand) geschehen.

Post by Flughase
Ohne die netsprechende Verknüpfung mit dem Titelblatt funktioniert
das ja auch bestens, aber sobald ich die Verknüfung "einschalte" wird das
Register nicht von dem Namen (TUI)auf dem 1. Blatt angeschrieben.

Der VBA-Code bezog sich nicht auf Blatt1, sondern auf die Zelle A1 jedes
einzelnen Tabellenblattes...

Post by Flughase
Es wäre nun genial, wenn das halt mit der oben beschriebenen Verknüpfung
funktioneiren würde.
ich hoffe, dass ich Dir das Problem nun besser beschreiben konnte.

Hmmm, ich werd noch immer nicht ganz schlau draus, wie Du siehst.

Kannst Du ev. eine Demo-Mappe zusammenstellen, diese mit ausführlichen
Kommentaren versehen und mir zusenden?
Dann könnte ich mir die Sache mal 'in natura' ansehen.



| [Fullquote von 40tude-Dialog[1] entsorgt]



Mit freundlichen Grüssen
Thomas Ramel


Fussnote(n):
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/

[Flughase]

Hallo Thomas

Mach ich gerne, kannst Du mir Deine Email-Adresse senden, wenn Du Deine aus
begreiflichen Gründen nich publiziedren möchtest, so schicke auf meine
Adresse ein Mail, dann sende ich Dir die Mustermappe: ***@gmx.de

Viele Grüsse und einen schönen Abend

Thomas

Post by Thomas Ramel
Grüezi Thomas
Flughase schrieb am 02.09.2005

Post by Flughase
Vielen Dankfür Deine rasche Antwort. Sorry für die etwas komplizierte
Bescheribung. Nun ich probiere es nochmals. Also Dein letztes Programm

Hmmm, Du meinst den Code, der die Tabellenblätter mit dem jeweiligen Wert
in A1 'beschriftet'?

Post by Flughase
Auf dem ersten Tabellenblatt hat der User nun die Möglichkeit in
verschiedenen Feldern die Veranstalter einzutragen, die für jedes Hotel
anders sind. Pro Veranstalter habe ich nun ein eigenes Tabellenblatt
kontruiert, wo die Zimmerpreise etc seperat pro Veranstalter berechnet
werden und dann vie Verknüpfung auf das Deckblatt übertragen werden.
Nemen wir mal an der Name eines der Verantalters auf Blatt 1 (vom User frei
wählbar) ist die TUI
so gibt der User aud der entsprechenden Zelle (Blatt 1) Tui ein. Darauf wird
mit einer Veknüpfung der die ale Titel dienende Zelle vom entsprechenden
Blatt angeschrieben, sagen wir mal Zelle A1. Nun hatte ich in der Tabelle ja
Deine Formel hinterlegt, so dass damit ja der Reiter angeschrieben werden
sollte.

Hmmm, in der Zelle steht eine Formel?
Diese wird aber nicht in der Lage sein, das Tabellenblatt umzubenennen; das
kann nur per VBA (oder eben von Hand) geschehen.

Post by Flughase
Ohne die netsprechende Verknüpfung mit dem Titelblatt funktioniert
das ja auch bestens, aber sobald ich die Verknüfung "einschalte" wird das
Register nicht von dem Namen (TUI)auf dem 1. Blatt angeschrieben.

Der VBA-Code bezog sich nicht auf Blatt1, sondern auf die Zelle A1 jedes
einzelnen Tabellenblattes...

Post by Flughase
Es wäre nun genial, wenn das halt mit der oben beschriebenen Verknüpfung
funktioneiren würde.
ich hoffe, dass ich Dir das Problem nun besser beschreiben konnte.

Hmmm, ich werd noch immer nicht ganz schlau draus, wie Du siehst.
Kannst Du ev. eine Demo-Mappe zusammenstellen, diese mit ausführlichen
Kommentaren versehen und mir zusenden?
Dann könnte ich mir die Sache mal 'in natura' ansehen.
| [Fullquote von 40tude-Dialog[1] entsorgt]
Mit freundlichen Grüssen
Thomas Ramel
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2000 SP-3]
(http://tinyurl.com/9ov3l und http://tinyurl.com/cmned)

[Thomas Ramel]

Grüezi Thomas

Flughase schrieb am 02.09.2005

Post by Flughase
Mach ich gerne, kannst Du mir Deine Email-Adresse senden, wenn Du Deine aus
begreiflichen Gründen nich publiziedren möchtest, so schicke auf meine

Meine Mailadresse hier ist replyfähig - Du kannst also direkt antworten.
hier nochmals zur 'sicherhiet': ***@mvps.org


Wenn dies über den Web-Zugang zu den NGs nicht möglic ist, dann sieh dir
den unten angeführten Newsreader vielleicht mal etwas näher an.


| [Fullquote von 40tude-Dialog[1] entsorgt]



Mit freundlichen Grüssen
Thomas Ramel


Fussnote(n):
------------
[1] Programm: http://www.40tude.com/dialog/
Anleitung: http://www.gaehn.org/software/40tude-dialog/tutorial/