Judithdoek
Gebruiker
- Lid geworden
- 9 mrt 2021
- Berichten
- 70
In onderstaande code beschrijf ik mijn probleem.
Code:
Sub garantietabel()
Dim KTG As Range, Lijst As Range, Enkel As Range
Set KTG = Sheets("Invoerbestand test2").Range("KTG")
Set Lijst = Sheets("Keuzelijsten").Columns("J:S")
Set Enkel = Sheets("Keuzelijsten").Columns("K:Q")
If WorksheetFunction.VLookup(KTG, Lijst, 10, False) = """" Then
garantie_invoer.Show
ElseIf WorksheetFunction.VLookup(KTG, Enkel, 7, False) = """" Then [COLOR="#FF0000"]'Hier krijg ik een foutmelding (Fout 1004, Eigenschap VLookup van klasse WorksheetFunction kan niet worden opgehaald.) [/COLOR]
garantie_invoer.Show [COLOR="#FF0000"]'Ik begrijp niet waarom, hierboven gaat het wel goed, kan iemand mij helpen?[/COLOR]
Else
Exit Sub
End If
End Sub