Sub BuildTable() ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$1427"), , xlYes).Name = _ "Table2" Range("Table2[#All]").Select End Sub
Sub BuildTableVS02() ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$1427"), , xlYes).Name = _ "Table3" ActiveCell.Range("Table3[#All]").Select End Sub
Sub NameBunkeTable() ActiveWorkbook.Names.Add Name:="BunkeTabel", RefersToR1C1:="=Ekspo_bunke!R1C1:R1427C7"
ActiveWorkbook.Names("BunkeTabel").Comment = "" End Sub
Den sidste linie i hver kode, får jeg fejl på, måske fordi jeg kun har Excel 2003 på denne pc.
If IsEmpty(Cells(1, 1)) Then MsgBox "Der er ingen værdi i celle A1." & vbNewLine & _ "Makroen forudsætter dette." Else ark.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), _ Cells(sidsteRk, sidsteKol)), , xlYes).Name _ = "Tabel" & Format(Now(), "yyyymmddhhmmss") End If
Hmm. Det gik galt med linjeskiftene. Jeg forsøgte ellers at undgå dette med _ Håber at du selv kan fixe dette ved eventuelt at lave en søg og erstat på dem.
If IsEmpty(Cells(1, 1)) Then MsgBox "Der er ingen værdi i celle A1." & vbNewLine & "Makroen forudsætter dette." Else ark.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(sidsteRk, sidsteKol)), , _ xlYes).Name = "Tabel" & Format(Now(), "yyyymmddhhmmss") End If
Sub BuildTable() ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = _ "Tabel1" End Sub
Synes godt om
Ny brugerNybegynder
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.