• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Vlookup vba

Status
Niet open voor verdere reacties.

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
 
Gebruik geen Excelfunkties in VBA.
VBA heeft daar eigen, veel snellere, methodes voor.
 
Als jij eerst precies beschrijft wat de bedoeling is kun je pas een antwoord verwachten.
 
Zie in de bijlage een voorbeeldbestand.

Cel KTG staat van origine in cel B13.

De bedoeling is dat er een melding (userform, die nog niet af is) in beeld komt wanneer er sprake is van een afwijkende groep. Deze heb ik vastgesteld op het blad Keuzelijsten, wanneer de cel leeg is dan is de groep afwijkend.

Bij vragen hoor ik het graag :)
 

Bijlagen

  • VLOOKUP.xlsm
    110,7 KB · Weergaven: 26
Op het werkblad Invoerbestand test2 staat een datavalidatie in de KTG cel.
Hiermee kan de gebruiker een keuze maken van een KTG.
Indien de KTG afwijkend is, verschijnt het formulier.

Je formule in kolom F op het werkblad Keuzelijsten kan een stuk korter.
In kolom G staat mijn korte formule met hetzelfde resultaat.
Deze kolommen worden overigens niet gebruikt voor het bepalen van het verschijnen van het formulier.

Met vriendelijke groet,


Roncancio
 

Bijlagen

  • VLOOKUP.xlsm
    94,8 KB · Weergaven: 21
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan