mit nachstehendem code sollen jeweils die Tabellenblätter den Namen erhalten der in A1 des jeweiligen Blatts steht.
Der code steht unter diese Arbeitsmappe.
Aber warum schaffe ich es nicht den error abzufangen ?
Bei falschem Tabellennamen (zB Sonderzeichen, zu lang ... ) oder einem bereits vorhandenem Tabellennamen soll die msgbox erscheinen und der cursor wieder auf a1 gesetzt werden.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Row <> 1 Or Target.Column <> 1 Then Exit Sub
ActiveSheet.Name = Cells(1, 1).Value
On Error GoTo Fehler
Fehler: MsgBox ("Tabellenname ist falsch oder bereits vergeben !")
Range("A1").select
End Sub
danke für eure Hilfe
gruß
andreas e