Beskrivelse

Opret og slet rækker

Indsæt række i tabel

Det kan gøres sådan her (indsætter en tom række i bunden af tabellen)

Sub IndsaetRk()     Dim wksCurrent As Worksheet     Set wksCurrent = ActiveSheet     Dim tbl As ListObject     Set tbl = wksCurrent.ListObjects("Oprettet tabel")     Dim rk As ListRow     Set rk = tbl.ListRows.Add End Sub

 .Add metoden her tager to parametre - Position og AlwaysInsert. Position bruges til at angive, hvor man ønsker rækken indsat (heltal) og AlwaysInsert (boolean) bruges til at styre, hvad der skal ske med cellerne under tabellen. Hvis den sættes sand vil cellerne under tabellen altid rykket en række ned og hvis den sættes falsk vil cellerne under tabellen kun blive flyttet, hvis der er indhold - ellers bliver tabellen "bare" udviddet.

Slet række i tabel

Den helt simple udgave

Sub SletRk()     Dim wksCurrent As Worksheet     Set wksCurrent = ActiveSheet     Dim tbl As ListObject     Set tbl = wksCurrent.ListObjects("Oprettet tabel")     tbl.ListRows(3).Delete End Sub

Vi skal nok komme tilbage til dette senere.

Pas på med at slette den sidste række i en tabel, hvis du har formler i tabellen, som vi gerne vil have følger med når du indsætter nye rækker.