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