Søg
Avatar billede jath08ac Forsker
29. november 2017 - 15:57 Der 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 & ""


txtEPIDD kommer er en textbox i min UserForm

pft.
Avatar billede Thor Østergaard Ekspert
29. november 2017 - 16:22 #1
Du har kaldt din variabel tabelK men referer til den med navnet tableK - du skal vælge en af delene ;-)
Avatar billede Dan Elgaard Ekspert
29. november 2017 - 16:51 #2
Du har glemt, at bruge 'Option Explicit' - fy, fy skamme, skamme...
Avatar billede jath08ac Forsker
30. november 2017 - 09:51 #3
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 & ""
Avatar billede Thor Østergaard Ekspert
30. november 2017 - 09:54 #4
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.
Avatar billede jath08ac Forsker
30. november 2017 - 10:03 #5
Fik løst problemmet. jeg havde ændret det interne navn på arkfanen :-)
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Knap til ipad Af FinnLauridsen i Excel 1 22/01/202620:51 23/01/202607:34
Hyperlink til tekst Af Nanarsi i Excel 12 19/01/202623:00 21/01/202618:17
HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel 3 15/01/202615:45 16/01/202609:04
Tekst til Dato Af nyhavn18 i Excel 2 13/01/202623:48 14/01/202608:50
Aktiekurser Af rabitjosph i Excel 4 13/01/202618:44 22/01/202621:41
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:06 Hjemmeside der virker både på mobil og computer Af Strawberry i PHP
I går 17:08 Problemer med borger.dk Af valby i Windows
I går 14:19 Fejl Af buls i Windows
I går 13:44 Adgang til Google konto via Ipad Af cyperbent i E-mail programmer
24/0109:50 Mobilpay svindel Af nu_igen i Andre onlineløsninger
White papers
Flere white papers »