Umbenennen des Blattnamens nach einer Zelle

13/08/2008 - 13:27 von Vero | Report spam
Wie kann ich den Namen eines Sheets z.b. Tabelle1 nach einem Zelleneintrag in
diesem Sheet benennen? z.B. Zelle D2 enthàlt den Namen "Spanien", das Sheet
soll auch Spanien heissen?

Danke für Hilfe
V
 

Lesen sie die antworten

#1 Melanie Breden
13/08/2008 - 14:43 | Warnen spam
Hallo Vero,

"Vero" schrieb:
Wie kann ich den Namen eines Sheets z.b. Tabelle1 nach einem Zelleneintrag
in
diesem Sheet benennen? z.B. Zelle D2 enthàlt den Namen "Spanien", das
Sheet
soll auch Spanien heissen?



das geht nur mit Hilfe von VBA.

Klicke mit der rechten Maustaste auf den Registerreiter und wàhle den
Eintrag
"Code anzeigen".

Jetzt siehst du den VBA-Editor und fügst in die rechte Fensterhàlfte
folgende Prozedur ein:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "D2" Then Exit Sub

On Error Resume Next
Me.Name = Target.Value
If Err.Number <> 0 Then
MsgBox "Der Blatname '" & Target.Value & "' ist ungültig!",
vbExclamation
End If
End Sub

Schließe den VBA-Editor wieder.
Bei jeder Änderung der Zelle D2 wird der Zellenwert automatisch als
Blattname angegeben.


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de
Das Excel-VBA Codebook 2007 http://tinyurl.com/2nwvod

Ähnliche fragen