Beskrivelse

Opret og slet tabeller

Opret tabel

VBA koden bag oprettelse af tabeller er ikke så kompliceret.

Sub OpretTabel()     Dim wksCurrent As Worksheet     Set wksCurrent = ActiveSheet     Dim tbl As ListObject     Dim rngTabel As Range     Set rngTabel = Range(wksCurrent.Range("A1"), _         wksCurrent.Range("A1").End(xlToRight).End(xlDown))     Set tbl = wksCurrent.ListObjects.Add(xlSrcRange, rngTabel, _         , xlYes)     tbl.Name = "Oprettet tabel" End Sub

 Det kan naturligvis skrives på mange måder - den helt korte version ser sådan her ud

Sub OpretTabelKort()     ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.UsedRange _         , , xlYes).Name = "Oprettet tabel" End Sub

Vær opmærksom på,  at der er krav til overskrifterne i tabellen - der må ikke være gengangere og der må ikke være nogen tomme. Er der alligevel det, sørger Excel for at rette op på det.
Baggrunden for dette er, at man kan bruge overskrifterne til at referere til indholdet af kolonnerne.

Fjern tabel

Det handler ikke om indholdet af tabellen, men at konvertere tabellen til "almindeligt" Excel indhold - det kan man gøre sådan her:

Sub FjernTabel()     Dim wksCurrent As Worksheet     Set wksCurrent = ActiveSheet     wksCurrent.ListObjects("Oprettet Tabel").Unlist End Sub

Koden gør som ønsket, men området vil stadig være formateret som tabel - vil man af med det kræver det lidt ekstra kode, men det burde være inden for rækkevidde...