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.