VBA -Code zum Hinzufügen einer neuen Spalte in der Tabelle

  Dim Table As ListObject
  Set Table = Sheet1.ListObjects("Table1")
  Table.ListColumns.Add 2
  Table.HeaderRowRange(2) = "New header"
ThevarRaj