snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 20.289
Nu we toch bezig zijn:
Code:
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
Laatst bewerkt: