In meiner Tabelle möchte ich in einer Tabelle in den Felder B6 - B12 ein Name erfassen können, der dann für die Tabellennamen verwendet wird. Ist in einem der Felder nichts enthalten, ist ein "Ersatzname" vorgesehen.
Mit nachfolgendem Code passiert leider nichts; ich kann es nicht ganz nachvollziehen warum - und insbesondere was zu ändern wäre.
Danke für ein Feedback, Peter
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Cells(6, 2) And Len(Cells(6, 2)) = 1 Then Tabelle11.Name = Target.Text
If Target.Address = Cells(7, 2) And Len(Cells(7, 2)) = 1 Then Tabelle12.Name = Target.Text
If Target.Address = Cells(8, 2) And Len(Cells(8, 2)) = 1 Then Tabelle13.Name = Target.Text
If Target.Address = Cells(9, 2) And Len(Cells(9, 2)) = 1 Then Tabelle14.Name = Target.Text
End Sub