Hallo,
Ik probeer in een tabel op een ander tabblad een naam te vinden om vervolgens uit de 12de kolom de uren contractuitbreiding op te halen. Hierbij krijg ik foutmelding 1004 'Eigenschap VLookup van klasse WorksheetFunction kan niet worden opgehaald'.
Ik heb (als beginner) geen idee wat er niet goed in gaat. De naam wordt juist opgehaald, maar bij CU_1 = VLookup etc gaat het fout. Hieronder mijn code:
Sub CU_Automatisch()
Dim Naam As String
Dim Lookup_Range As Range
Dim CU_1 As Single
Sheets("Capaciteit JA 4-18").Select
Range("B60").Select
Naam = ActiveCell.Value
Set Lookup_Range = Sheets("MDWOV_JA").Range("B4:AT151")
CU_1 = Application.WorksheetFunction.VLookup(Naam, Lookup_Range, 12, False)
Sheets("Capaciteit JA 4-18").Select
Range("F60").Select
ActiveCell.Value = CU_1
End Sub
Weet iemand wat er fout gaat?
Ik probeer in een tabel op een ander tabblad een naam te vinden om vervolgens uit de 12de kolom de uren contractuitbreiding op te halen. Hierbij krijg ik foutmelding 1004 'Eigenschap VLookup van klasse WorksheetFunction kan niet worden opgehaald'.
Ik heb (als beginner) geen idee wat er niet goed in gaat. De naam wordt juist opgehaald, maar bij CU_1 = VLookup etc gaat het fout. Hieronder mijn code:
Sub CU_Automatisch()
Dim Naam As String
Dim Lookup_Range As Range
Dim CU_1 As Single
Sheets("Capaciteit JA 4-18").Select
Range("B60").Select
Naam = ActiveCell.Value
Set Lookup_Range = Sheets("MDWOV_JA").Range("B4:AT151")
CU_1 = Application.WorksheetFunction.VLookup(Naam, Lookup_Range, 12, False)
Sheets("Capaciteit JA 4-18").Select
Range("F60").Select
ActiveCell.Value = CU_1
End Sub
Weet iemand wat er fout gaat?