Office: Dynamischer Reitername

Hallo zusammen,
vielleicht gibt es diese Frage schon, aber ich habe sie nicht gefunden: Ist es möglich, dass der Name eines Reiters (also einer neuen Tabelle) aus einer Zelle dynamisch übernommen wird?

Bsp: in Zelle A1 der ersten Tabelle steht Hamburg.
Dann soll die zweite Tabelle Hamburg heissen und würde dieser Name in A1 in Bremen geändert werden, dann soll die zweite Tabelle eben Bremen heissen.

Vielen Dank schon mal!

Gruß
Kleptomen

 

Hallo!

Teste mal dies:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target <> "" Then Sheets(2).Name = Target
End Sub

 

Hallo Schatzi,
wo muss ich denn diesen Code einsetzen?
In Zelle A1 kann ja nicht sein, da hier ja der Name steht, der übernommen werden soll.
Anstelle des Textes für den Reiternamen geht auch nicht, die maximale Zeichenlänge ist begrenzt.
Und wenn ich diesen Code in eine beliebige Zelle einsetze, dann passiert nichts... (verdampft! ...wie mein kleiner Sohn sagen würde ;-))

Gruß
Kleptomane

 

Hallo!

Rechtsklicke den Reiter der ersten Tabelle und wähle "Code anzeigen".
Nun kopiere den Code in das Codefenster rechts.

 

Hallo,
leider funktioniert das in meinem Dokument nicht. Ich habe aus $A$1 = $C$4 gemacht, da der Name in der Zelle C4 steht (ist auch nicht zu lang!), aber daran kann es nicht liegen, oder??

PS: ich nutze Excel 2000. Liegt es vielleicht daran?

Gruß
Kleptomane

 

Hallo!

Ich hab's auch unter Excel 2000 erstellt.
Bei mir funktioniert's...

 

Ich scheine irgendetwas falsch zu machen, oder meine Einstellungen sind anders.
Wenn ich dein Beispiel nehme und in den Text in der Zelle A1 ändere, dann ändert sich der Name bzw. die Bezeichnung des zweiten Reiters nicht...

 

Wurdest du beim Öffnen der Mappe gefragt, ob du Makros aktivieren möchtest?
Falls nicht, dann schau mal unter Menü Extras > Makros > Sicherheit
Sollte dort "Hoch" angekreuzt sein, dann schalte mal auf "Mittel" und probier's nochmal.

Etwas anderes fällt mir sonst auch nicht ein.

 

Hallo Schatzi,
ich bin jetzt schon ein Schritt weiter. Wenn ich die Sicherheit auf 'Mittel' setze, dann funktioniert deine Datei auch bei mir. Wenn ich diesen Code allerdings auf mein Dokument anwende, dann funktioniert es wieder nicht... :-(
Liegt das vielleicht an den Namen die ich den Reitern vorab gegeben hatte (Jeder Reiter braucht ja einen Namen, ohne akzeptiert Excel es nicht)?
Ich hatte den Code auch ein neues Dokument kopiert und da funktionierte es.
Ich gehe mal davon aus, dass dieses Problem zu knacken ist, deswegen frage ich mal gleich nach einer Erweiterung für die Namensvergebung bei weiteren Reitern :-)

Gruß
Kleppi

 

Hallo!

Allmählich gehen mir die Ideen aus...
Laufen noch andere Makros in der Mappe?
Hast du evtl. einen Blattschutz vergeben?

 

Hallo,
... Ich habe die Sicherheit auf niedrig gesetzt und dann hat es funktioniert. Danach habe ich die Sicherheit wieder auf mittel gesetzt und es funktioniert immer noch...
Naja, schön für mich, aber warum ist das so??
wie dem auch sei, ich habe natürlich mehrer Tabellen, die ebenfalls dynamisch ihre Namen erhalten sollen. Ich hatte es mal mit folgendem Code versucht:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
If Target <> "" Then Sheets(3).Name = Target
If Target.Address <> "$C$5" Then Exit Sub
If Target <> "" Then Sheets(4).Name = Target
End Sub

funktioniert aber leider nicht.

Ich kenne mich mit Visual Basic leider überhaupt nicht aus..

Danke und Gruß
Kleptomane

 

Hallo!

Dann bringt dich die "Negativ"-Abfrage nicht weiter.
Dann versuche es so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" And Target <> "" Then Sheets(3).Name = Target
If Target.Address = "$C$5" And Target <> "" Then Sheets(4).Name = Target
End Sub

 

Echt Spitze!
Funktioniert und macht mich glücklich

Gruß und schönes WE

Klepi