Hej,

Jag håller på att skapa ett makro för att skapa en tabell i ett excelark. Problemet är att jag vet inte hur mycket data det är i arket. Det enda jag vet är att rubriken startar i cell A13.

Jag har följande kod men den fungerar inte. Byter jag ut lastColl till aktuell kolumnbokstav (t.ex. ActiveSheet.ListObjects.Add(xlSrcRange, Range("A13:O" & lastRow), , xlYes).Name = "myTable1") så funkar det.

Sub test()

    Dim lastRow As Long

    Dim lastColn As Long

    Dim lastColl As String

    lastRow = ActiveSheet.Range("A" & rows.Count).End(xlUp).Row

    lastColn = ActiveSheet.Cells(13, Columns.Count).End(xlToLeft).Column

    lastColl = Split(Cells(1, lastColn).Address, "$")(1)

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("A13": lastColl & lastRow), , xlYes).Name = "myTable1"

    'MsgBox (lastColl)

End Sub

Körde med Range(Cells(x,y), Cells(r,c)) och det funkade bra. Har inte testat hur activesheet.usedrange funkar än men det kanske blir bättre sen. Tack så mycket för hjälpen.

Vänliga hälsningar

Marcus