Hallo zusammen
Uber unten stehenden Code lasse ich die Blätter meiner Tabelle benennen, leider habe ich ein Problem,
viele tabellen werden aber über eine Formel gefüllt und da funktioniert der Code dann nicht. Weiss jemand Rat was mann da machen könnte,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim X As Long
With ActiveSheet
If Not Intersect(Target, .Range("N8")) Is Nothing And Target.Count = 1 Then
For X = 1 To Worksheets.Count
If Worksheets(X).Name = .Range("N8").Value Then
MsgBox "Blattname ist schon vorhanden"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
Next
If .Range("N8").Value "" Then ActiveSheet.Name = .Range("N8").Value
End If
End With
End Sub
Grüße Karl