Registerblattnamen automatisch umbenennen

Bild

Betrifft: Registerblattnamen automatisch umbenennen
von: Peter Wenzel
Geschrieben am: 30.10.2003 00:58:46

Hallo,
ich möchte in einem Tabellenblatt den Registernamen automatisch einer Zelle anpassen.
Beispiel:
Tabelle 1 / ZelleA1= "Hans".
Nun soll sich der Registername von "Tabelle 1" auf "Hans" umbennenen.
Wie ist das am einfachsten möglich??

Danke für Eure Hilfe!

Bild


Betrifft: AW: Registerblattnamen automatisch umbenennen
von: PeterW
Geschrieben am: 30.10.2003 01:18:51

Hallo Peter,

soll das bei der Eingabe/Änderung in/von A1 passieren? Rechtsklick auf das Tabellenregister - Code anzeigen und in das sich öffnende Fenster folgendes kopieren:

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

Gruß
Peter


Bild


Betrifft: AW: Registerblattnamen automatisch umbenennen
von: Peter Wenzel
Geschrieben am: 30.10.2003 02:15:33

Vielen, Vielen Dank
Wie einfach es doch ist - wenn man es kann!!! :-))

Gruss
Peter


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Registerblattnamen automatisch umbenennen"