IF met VLOOKUP geeft TRUE als uitkomst in plaats van een getal

[JochemV]

Goedemorgen,

Voor mijn werk ben ik bezig een automatische planningstool samen te stellen. Met online lezen en leren ben ik heel ver gekomen, maar tegen het einde loop ik vast.

Situatieschets:
Ik heb een tabblad met daarop per activiteit (naam in de eerste kolom) onder andere wat de benodigdheden zijn per week (verdere kolommen), dus per type benodigdheid staat per week een aantal.
Op een ander tabblad wil ik sessies van activiteiten kunnen inplannen op een kalender (ook per week ingedeeld) door de naam van de activiteit te geven en aan te geven in welke kalenderweek de eerste week van de activiteit valt. Dit probeer ik met een combinatie van IF en VLOOKUP en een aparte regel code per cel (met een range lukte in een eerdere poging al niet). Ik krijg alleen geen getal als uitkomst in de cel de waarde TRUE.

Vraag:
Kan iemand mij uitleggen wat ik fout doe, of hoe dit goed kan?

De regel code die ik heb gebruikt en eronder wat het volgens mij betekent:

ws.Cells(iRow, 6).Formula = "=IF(" & Me.txtEersteWeek.Value > ws.Cells(3, 6).Value & ","",VLOOKUP(me.cbbCursus.Value,Cursussen,(me.txtEersteWeek.Value+F3-1),False))"

De formule die in de zesde kolom van de nieuwe rij moet worden geplaatst is: als het nr van de eerste week groter is dan de kalenderweek (in cel F3) dan moet de cel leeg blijven. Als het nr van de week niet groter is moet excel zoeken op tabblad cursussen naar de rij met de naam van de cursus (uit de combobox) en dan de waarde van kolomnr(kalenderweeknr+weeknr cursus-1). Dit moet gebeuren bij een volledige overeenkomst van de naam van de cursus.

Voor de volgende cellen schuift F3 op naar G3.

Ik hoop dat ik mijn probleem duidelijk heb kunnen uitleggen, alvast bedankt voor jullie tijd!

Jochem

 

[Longpants]

Hmm... heb je er toevallig ook een voorbeeld bestand bij? Je beschrijving zegt me wel iets, maar niet alles.
Waarschijnlijk is het handiger om een eigen functie te maken, zodat je minder 'nesting' in de formule krijgt.

 

[HSV]

Test het maar eens.

ws.Cells(iRow, 6) _
= Evaluate("=if(" & Me.txtEersteWeek.Value & ">" & ws.Cells(3, 6).Value & ","""",VLookup(" & """" & "" & _
Me.cbbCursus.Value & "" & """" & ",cursussen," & "" & """" & CLng(Me.txtEersteWeek.Value) + Range("F3").Value - 1 & """,False))")

Of met formule in de cel.

ws.Cells(iRow, 6) _
= "=if(" & Me.txtEersteWeek.Value & ">" & ws.Cells(3, 6).Value & ","""",VLookup(" & """" & "" & _
Me.cbbCursus.Value & "" & """" & ",cursussen," & "" & """" & CLng(Me.txtEersteWeek.Value) + Range("F3").Value - 1 & """,False))"