Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

über eine Zelle Tabellenname verändern

Forumthread: über eine Zelle Tabellenname verändern

über eine Zelle Tabellenname verändern
03.01.2005 19:20:12
Christian
Hallo zusammen,
hätte da nochmal eine Frage:
Habe eine Datei mit mehreren Tabellenblättern.
ich weiss wie man über den Mausklick den Tabellenname verändern kann, möchte aber meine Tabellenblätter so gestalten, dass ich in einer Zelle des jeweiligen Tabellenblattes einen kurzen Text eingeben kann.
Dieser Text soll dann der Name des Tabellenblattes sein und auch in der untersten Leiste, d.h. auf dem Reiter erscheinen.
Geht das über irgendeine Funktion?
Über einen kleinen Tip würde ich mich wieder freuen.
Danke.
Gruß
aus
Augsburg
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: über eine Zelle Tabellenname verändern
ransi
hallo christian
das könnte so gehn:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Value
End Sub

...aber ich glaube da gibt es auch zeichen die nicht erlaubt sind.
ransi
Anzeige
AW: über eine Zelle Tabellenname verändern
03.01.2005 19:28:50
Matthias
Hallo Christian,
Alt-F11 zum Öffnen des VB-Editors, Doppelklick auf "DieseArbeitsmappe" im Projektexplorer.
Dann diesen Code reinkopieren:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
Sh.Name = Range("A1")
If Err.Number > 0 Then
MsgBox "Umbenennen fehlgeschlagen!"
Err.Clear
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End If
End Sub
Gruß Matthias
Anzeige
AW: über eine Zelle Tabellenname verändern
Kl@us-M.
Hi Christian,
kopiere folgenden Code hinter das Tabellenblatt:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Range("a2").Select
End If
If Target = Range("A1") Then ActiveSheet.Name = Target
End Sub

oder schau Die die Beispielmappe an:
https://www.herber.de/bbs/user/15556.xls
Gruss aus dem wilden Hunsrück
Klaus-Martin

Anzeige
AW: über eine Zelle Tabellenname verändern
Christian
Vielen Dank Euch für die schnelle und hilfreiche Antwort.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige