Avatar billede jath08ac Forsker
11. december 2017 - 14:33

Fejl listobjects (VBA USERFORM)

Hej,

Når jeg forsøger at køre nedenstående kode (uddrag) får jeg en fejl 424.
Set table = DefOpslagSpec.ListObjects("tblNoterOpslag"). Jeg har to combobox, som begge i deres koder indeholder denne kodelinje: Set table = DefOpslagSpec.ListObjects("tblNoterOpslag"). Er det det der er årsagen til min fejl?

UDDRAG AF KODE:

Private Sub cmbNoter1_Change()
On Error GoTo Err_Sub
Application.ScreenUpdating = False
Dim table As ListObject
 
    Set table = DefOpslagSpec.ListObjects("tblNoterOpslag") '---> GÅR I FEJL

      ufrNewAccount.Frame1.Enabled = False

      Hovedgruppe = Application.VLookup(cmbNoter1.Value, table.Range, 2, False)
      AKPA = Application.VLookup(cmbNoter1.Value, table.Range, 3, False)
      Niveau1 = Application.VLookup(cmbNoter1.Value, table.Range, 4, False)
      Niveau2 = Application.VLookup(cmbNoter1.Value, table.Range, 5, False)
      Niveau3 = Application.VLookup(cmbNoter1.Value, table.Range, 6, False)
      Spec = Application.VLookup(cmbNoter1.Value, table.Range, 7, False)
      Noter = Application.VLookup(cmbNoter1.Value, table.Range, 8, False)
      SpecNr = Application.VLookup(cmbNoter1.Value, table.Range, 10, False)
      NoteNr = Application.VLookup(cmbNoter1.Value, table.Range, 9, False)
     
    If cmbNoter1.Value = "" Then
        Exit Sub
    Else
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

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.

Du kan også logge ind via nedenstående tjenester