29. november 2017 - 15:57Der er
4 kommentarer og 1 løsning
Run-time error '424' på listobjects VBA
Hej Jeg får en fejl '424' på nedenstående kode:
Private Sub CommandButton1_Click()
Dim table As ListObject Dim tabelK As ListObject Set table = Efterpostering.ListObjects("tblEfterpost") Set tableK = EfterposteringK.ListObjects("tblEfterpostK") --> Denne linje går i fejl
ans = Application.Sum(CInt(Application.VLookup(txtEPIDD.Value, tableK.Range, 8))) MsgBox "Resultat er: " & ans & ""
Flere kommuner går nu i gang med at bruge AI-understøttet dokumentation. Målet er, at sagsbehandlere skal bruge mindre tid på referater og registrering – og mere tid på nærvær i mødet med borgeren.
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)))
Fik løst problemmet. jeg havde ændret det interne navn på arkfanen :-)
Synes godt om
1 synes godt om dette
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.