In VBA diesen Code in die entsprechende Tabelle kopieren
wobei ich immer erst die Spalte daneben ausblenden würde (damit eine Spalte übrig ist in die man einen neuen Namen eintragen kann) - falls man einen Namen in der Mitte löschen würde, passiert erstmal nichts, falls man 2 nebeneinander löscht, kann aber dann auch eine Spalte in der Mitte ausgeblendet werden
Habe Zeile 4 genommen, weil diese so aussah als ob sie überall befüllt ist (ansonsten müsste man im Code wahrscheinlich alle Spaltennummer, die ausgeblendet werden sollen erfassen)
Private Sub Worksheet_Change(ByVal Target As Range)
For Each myCell In Intersect(Target, ActiveSheet.UsedRange)
If myCell.Row = 4 And myCell.Value = "" Then
If Cells(myCell.Row, myCell.Column + 1) = "" Then
Columns(myCell.Column + 1).Select
Selection.EntireColumn.Hidden = True
End If
ElseIf myCell.Row = 4 And myCell.Value <> "" Then
Columns(myCell.Column + 1).Select
Selection.EntireColumn.Hidden = False
End If
Next
End Sub