Vervolgkeuzelijst pakt niet de goede tekst over

[steefjuh]

hey beste mensen,

Ik heb een Vervolgkeuzelijst aangemaakt en aan een marco gekoppeld.
De code is:

Sub Vervolgkeuzelijst2()
With Worksheets(1)
  If [I4].Value = 1 Then
    [K6].Copy Destination:=Sheets("Rekenblad Staal").[G4]
  ElseIf [I4].Value = 2 Then
    [K5].Copy Destination:=Sheets("Rekenblad Staal").[G4]
  End If
End With
End Sub

In cel K6 staat:=VERT.ZOEKEN(A4;'Data opslag Staal'!A2:J46;10)
in cel K5 staat:=VERT.ZOEKEN(A4;'Data opslag Staal'!A2:J46;9)
Nu staat er in cel G4: =VERT.ZOEKEN(#VERW!;'Data opslag Staal'!#VERW!;9)

Hij verwijst hem telkens. weet iemand een oplossing om dit te voorkomen? zodat cel G4 geen error meer aangeeft.

 

[Hoornvan]

steefjuh,

Ik heb het met de macrorecorder even gedaan en dan schrijft hij wel de goede formule in de cel.
Misschien dat je er wat aan heb?

Sub Macro3()
    Range("K5").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(R[-1]C[-10],'Data opslag Staal'!R[-3]C[-10]:R[14]C[-1],10,0)"
    Sheets("Rekenblad Staal").Select
    ActiveSheet.Paste
End Sub

Om hem dan goed te laten werken moet er eigenlijk dit staan.

=VERT.ZOEKEN([COLOR="Red"]Blad1![/COLOR]A4;'Data opslag Staal'!A2:J19;10;0)

Anders komt er #NB te staan.

 

[steefjuh]

hey..
okey dankje ik ga het meteen proberen!
Thanx

 

[snb]

zet in cel K6 VERT.ZOEKEN($A$4;'Data opslag Staal'!$A$2:$J$46;10)
zet in cel K5 VERT.ZOEKEN($A$4;'Data opslag Staal'!$A$2:$J$46;9)

Dan is deze one-liner voldoende

Sub Vervolgkeuzelijst2()
  Worksheets(1).[K7].offset(-[I4]).Copy [Rekenblad Staal!G4]
End Sub