Tabname aus Zelle
17.12.2003 18:00:49
Stefan Glander
Der Text, der in Zelle K2 eingegeben wird,soll automatisch als
Tabellenblattname verwendet werden und das Tabellenblatt entsprechende benannt werden. Fehleingaben sollen abgefangen werden.
Bekomme aber leider immer die Fehlermeldung Syntaxfehler.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("K2:K2)) Is Nothing Then
On Error GoTo fehlermeldung
If Target = "" Then Exit Sub
ActiveSheet.Name = Range("K2").Value
End If
Exit Sub
fehlermeldung:
MsgBox "Es wurden ungültige Zeichen erfasst!"
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Wer kann helfen?
Gruss
Stefan Glander