andere manier om het stukje code te gebruiken

[ronsom]

Goedemorgen,

In de bijlage een bestandje waar ik via de macrorecorder een code heb kunnen maken.
Hier en daar wat gevonden op het internet en dit zo weten te maken dat het werkt.
Nu is mijn vraag, is er een efficiëntere manier via VBA om het zelfde resultaat te bereiken.

 

[VenA]

Waarom wil je dit dan? Het 'leuke' aan een tabel is dat formules onthouden worden.

Iets kortere variant

Sub VenA()
  With Blad1.ListObjects(1)
    .ListColumns("Dag").DataBodyRange = "=TEXT([@Tijd],""ddd"")"
    .ListColumns("Minuut").DataBodyRange = "=MINUTE([@Tijd])"
    .ListColumns("Uur").DataBodyRange = "=Hour([@Tijd])"
    .ListColumns("Regel").DataBodyRange = "=IFERROR(VLOOKUP([@Sortering],test_1,2,0),"""")"
    .DataBodyRange = .DataBodyRange.Value
  End With
End Sub