Kolommen sorteren

Sub M_snb()
  y = [Table1].Columns.Count
  
  With Cells(1, y + 2).Resize(, y)
    .Value = Split(Replace(Join(Filter(Split(Join(Filter(Application.Index(Application.Text(ListObjects(1).Range.Value, "@ @"), 1, 0), ""), "_"), "_"), " "), "|"), " ", "_"), "|")
    [Table1[#Headers]] = .Value
    .Sort .Resize(1, 1), , , , , , , , 2
    [Table1[#All]].AdvancedFilter 2, , .Offset(0)
  End With
End Sub

=LET(z;tbl_test[#All];r;INDEX(z;1;);s;TEXTAFTER(r;"_")&"_"&TEXTBEFORE(r;"_");INDEX(z;ROW(z);MATCH(SORTBY(r;s);r;0)))

SORTBY(r;s)

Sub hsv_3()
Dim sv, x, e, Lo As ListObject, i As Long, xAp As Application, s0 As String
Set xAp = Application
Set Lo = Sheets(1).ListObjects(1)
 sv = Lo.Range.Value2
    For Each e In Lo.HeaderRowRange
       s0 = s0 & "|" & Split(e, "_")(1) & "_" & Split(e, "_")(0)
    Next
  x = xAp.SortBy(Lo.HeaderRowRange, Split(Mid(s0, 2), "|"))
  Lo.HeaderRowRange = x
  Lo.DataBodyRange = xAp.Index(sv, Evaluate("row(2:" & UBound(sv) & ")"), xAp.Match(x, xAp.Index(sv, 1), 0))
End Sub

Sub hsv_4()
Dim sv, sq, Lo As ListObject, xAp As Application
Set xAp = Application
Set Lo = Sheets(1).ListObjects(1)
  sv = Lo.Range.Value2
  sq = Split(Replace(Join(Filter(Split(Join(Filter(Application.Index(xAp.Text(Lo.HeaderRowRange.Value, "@ @"), 1, 0), ""), "_"), "_"), " "), "|"), " ", "_"), "|")
  Lo.HeaderRowRange = xAp.SortBy(Lo.HeaderRowRange, sq)
  Lo.DataBodyRange = xAp.Index(sv, Evaluate("row(2:" & UBound(sv) & ")"), xAp.Match(Lo.HeaderRowRange, xAp.Index(sv, 1), 0))
End Sub

Sub hsv_5()
Dim sv, sq, Lo As ListObject, xAp As Application
Set xAp = Application
Set Lo = Sheets(1).ListObjects(1)
  sv = Lo.Range.Value2
  Lo.HeaderRowRange = xAp.SortBy(Lo.HeaderRowRange, Split(Replace(Join(Filter(Split(Join(Filter(Application.Index(xAp.Text(Lo.HeaderRowRange.Value, "@ @"), 1, 0), ""), "_"), "_"), " "), "|"), " ", "_"), "|"))
  Lo.DataBodyRange = xAp.Index(sv, Evaluate("row(2:" & UBound(sv) & ")"), xAp.Match(Lo.HeaderRowRange, xAp.Index(sv, 1), 0))
End Sub