Zellinhalt automatisch als Blattname verwenden

102028



Mit dem folgenden Makro wird der Inhalt der Zelle A5 automatisch als Blattname verwendet und
das Tabellenblatt entsprechend umbenannt. Dieses Makro muss in das Tabellenblatt eingefügt werde in dem der Code verwendet werden soll. Das Makro also bitte in kein Modul 'normales' Modul einfügen.

Private Sub Worksheet_Change(ByVal Target As Range)
'Der Text, der in Zelle A5 eingegeben wird, wird automatisch als
'Tabellenblattname verwendet und das Tabellenblatt entsprechende benannt
'Fehleingaben werden abgefangen

If Not Application.Intersect(Target, Range("A5:A5")) Is Nothing Then
    On Error Goto fehlermeldung
    If Target = "" Then Exit Sub
    ActiveSheet.Name = Range("A5").Value
End If
Exit Sub

fehlermeldung:
MsgBox "Es wurden ungültige Zeichen erfasst!"
End Sub


Das Makro prüft, ob der Blattname unerlaubte Zeichen enthält und beendet das Makro, wenn unerlaubte Zeichen verwendet wurden.