Avatar billede Bjarne Juniormester
25. december 2020 - 11:02 Der er 2 kommentarer og
1 løsning

Konverter tabel til område

Hej

Findes det en måde, hvorpå en makro kan konvertere en tabel til et område.

Der kan ikke indspilles en makro til denne funktion. Det er afprøvet.
Avatar billede ebea Ekspert
25. december 2020 - 11:33 #1
Denne kode burde ændre en Tabel på Ark1

Sub ConvertTableToRange()
Dim rList As Range
Dim ws As Worksheet

For Each ws In Worksheets(Array("Ark1"))
    With ws.ListObjects(1)
        Set rList = .Range
        .Unlist  'Ændrer tabel til normalt område
    End With
   
    With rList
        .Interior.ColorIndex = xlColorIndexNone
        .Font.ColorIndex = xlColorIndexAutomatic
        .Borders.LineStyle = xlLineStyleNone
    End With
Next ws
End Sub
Avatar billede Bjarne Juniormester
25. december 2020 - 12:49 #2
Tak ebea.
Det virkede fint. Fjernede dog de sidste linjer, da jeg ikke vil ændre farver og linjer.
Avatar billede ebea Ekspert
25. december 2020 - 13:40 #3
#2 - Du er velkommen ;-) 
Ja, der er "frit slag" til at tilpasse.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester