Run-time error '424' på listobjects VBA

Du har kaldt din variabel tabelK men referer til den med navnet tableK - du skal vælge en af delene ;-)

Du har glemt, at bruge 'Option Explicit' - fy, fy skamme, skamme...

Jeg får stadig en fejl

Denne linje bliver markeret gul: Set tableK = EfterposteringK.ListObjects("tblEfterpostK"). Når jeg stiller muse over 'Set tableK' bliver der vist 'tableK = Nothing'.

Hvis jeg holder moser over tableK.Range, bliver der vist følgende: 'tableK.Range = <Object variable or With block variable not set>

MIN KODE:
Dim table As ListObject
Dim tableK As ListObject
Set table = Efterpostering.ListObjects("tblEfterpost")
Set tableK = EfterposteringK.ListObjects("tblEfterpostK") --> Bliver markeret gul
    ans = Application.Sum(CInt(Application.VLookup(txtEPIDD.Value, tableK.Range, 8, False)))

    MsgBox "Resultat er: " & ans & ""

Tja...
Næste skridt er at sikre at du har en talbel kaldt præcis "tblEfterpostK" på den arkfane som objektet "EfterposteringK" peger på.

EfterposteringK.ListObjects("tblEfterpostK")

Ingen af delene kan vi rigtig hjælpe med uden at have din fil.

Fik løst problemmet. jeg havde ændret det interne navn på arkfanen :-)