Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Worksheets.Add(After:=Sheets(Sheets.Count)).Name = Target.Value
End If
Exit Sub
Fehler:
MsgBox "Es wurde ein neues Blatt angelegt. Jedoch konnte kein gültiger Name vergeben werden. Benennen Sie das Tabellenblatt manuell!", vbInformation
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Value <> "" Then
Worksheets(Target.Value).Select
End If
Exit Sub
Fehler:
MsgBox "Es gibt kein Blatt mit diesem Namen!", vbExclamation
End Sub