VLOOKUP geeft fout 1004: Door de toepassing of door object gedefinieerde fout

Status
Niet open voor verdere reacties.

Vickiej123

Gebruiker
Lid geworden
23 jan 2008
Berichten
5
Goedemorgen,

Ik krijg een foutmelding in VBA bij VLOOKUP.

1004: Door de toepassing of door object gedefinieerde fout

Ik heb de argumenten in de functie al op verschillende manier ingevuld, maar ik blijf de melding krijgen.
Kan iemand mij vertellen wat ik fout doe.

Dit is de code die ik gebruik:

Code:
Sub vlookup()

Dim O As Long
Dim Oms As Long
Dim strWaarde As String

For O = 2 To ActiveSheet.Range("A2").End(xlDown).Row

strWaarde = (Cells(O, 12).Value)

ActiveSheet.Cells(O, 13).Select
Oms = Application.WorksheetFunction.vlookup(strWaarde, ActiveSheet.Range("A:D"), 3, False).Value
ActiveCell.Value = Oms

Next

End Sub

Uiteindelijk wil ik deze code achter een knop hangen, maar dan moet hij wel werken natuurlijk :)Bekijk bijlage TestVBA.xlsm
 
Laatst bewerkt:
Maak er dit van:
Code:
Sub vlookup()
    For O = 2 To Range("A2").End(xlDown).Row
        Cells(O, 13) = Application.vlookup(Cells(O, 12), Range("A:D"), 3, False)
    Next O
End Sub

Daarnaast het advies om een Sub niet de naam van een bekende functie te geven.
In dit geval gaat het goed, maar je kan het beter niet doen.
 
Laatst bewerkt:
.WorksheetFunction kan je beter weglaten. En nog wat meer ook

Code:
Cells(O, 13).Value = Application.vlookup(strWaarde, Range("A:D"), 3, False)
 
Laatst bewerkt:
Geef macro's geen voorbehouden namen
Gebruik geen select in VBA.
Begin bij het begin in VBA en schud het 'Excel' denken van je af: In VBA is vlookup overbodig.
 
Maak er dit van:
Code:
Sub vlookup()
    For O = 2 To Range("A2").End(xlDown).Row
        Cells(O, 13) = Application.vlookup(Cells(O, 12), Range("A:D"), 3, False)
    Next O
End Sub

Daarnaast het advies om een Sub niet de naam van een bekende functie te geven.
In dit geval gaat het goed, maar je kan het beter niet doen.

Het werkt! Helemaal top! Bedankt!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan