Zellwert als Namen fⁿr Tabellenblatt verwenden

In einer Excel-Tabelle m÷chte ich in Zelle ╗A1½ oder einer beliebigen anderen Zelle einen Wert eingeben k÷nnen, um diesen dann als Namen fⁿr das aktuelle Tabellenblatt zu verwenden. Diese M÷glichkeit sollte gleichzeitig in allen Tabellen der Arbeitsmappe bestehen.

Das funktioniert mit einem kurzen Makro im Code-Fenster fⁿr die gesamte Arbeitsmappe. Damit ist es fⁿr alle Tabellen verfⁿgbar. Zuerst fⁿhren Sie ╗Extras | Makro | Visual Basic-Editor½ aus. Dort finden Sie links im Projektexplorer den Eintrag ╗VBA-Projekt (Mappe1)½ oder einen entsprechenden Eintrag fⁿr Ihre Arbeitsmappe. Klicken Sie auf das Pluszeichen links des Namens und dann auf das Pluszeichen vor dem jetzt sichtbaren ╗Microsoft Excel Objekte½. Mit einem Doppelklick auf ╗Diese Arbeitsmappe½ ÷ffnen Sie das Code-Fenster fⁿr die Eingabe Ihres Makros fⁿr alle Tabellen. Dort geben Sie folgende Makrozeilen ein oder kopieren sie von der Heft-CD, CHIP-Code Praxis02:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean) 
  If Target.Row <> 1 Or Target.Column <> 1 Then Exit Sub
  ActiveSheet.Name = Cells(1, 1).Value
  Range(ôA2ô).Select 
End Sub