variabel kolom nummer

[don42]

beste helpers,

ik heb dit:
3 regels

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("f4").Resize(1, 1) = "=INDEX(klanten!R2C1:R200C4,MATCH(factuur!R3C6,klanten!R2C1:R200C1,0),COLUMN()-4)"
Range("f5").Resize(1, 1) = "=INDEX(klanten!R2C1:R200C4,MATCH(factuur!R3C6,klanten!R2C1:R200C1,0),COLUMN()-3)"
Range("f6").Resize(1, 1) = "=INDEX(klanten!R2C1:R200C4,MATCH(factuur!R3C6,klanten!R2C1:R200C1,0),COLUMN()-2)"
End Sub

Dus met een verwijzing naar column -4, -3, -2
kan dit ook in 1 regel geschreven worden dat er telkens 1 kolom verder gekeken wordt?




was hier mee bezig

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
i = 4
For i = 4 To 6
Cells(i, 6).Resize(1, 1) = "=INDEX(klanten!R2C1:R200C4,MATCH(factuur!R3C6,klanten!R2C1:R200C1,0),COLUMN()-i)"
Next
End Sub

Don

 

[ExcelAmateur]

Werkt dit?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 4 To 6
  Range("F" & i).Resize(1, 1) = "=INDEX(klanten!R2C1:R200C4,MATCH(factuur!R3C6,klanten!R2C1:R200C1,0),COLUMN()-i)"
Next
End Sub

 

[SjonR]

@ EA

Op jouw manier zal de i letterlijk in de formule worden opgenomen en dus niet verwijzen naar het nummer.

For i = 4 To 6
  Range("F" & i).Resize(1, 1) = "=INDEX(klanten!R2C1:R200C4,MATCH(factuur!R3C6,klanten!R2C1:R200C1,0),COLUMN()-" & i & ")"
Next

Verder vraag ik me af of dit in een selectionchange thuis hoort, want bij elke beweging binnen de sheet opnieuw de formules plaatsen lijkt me nutteloos.

Heb de formule verder niet getest/bekeken trouwens!

 

[ExcelAmateur]

SjonR,

Ik heb gekeken naar zijn eerste code, die staat in het blad en werkt met F4 to F6.
Verder heb ik niets aan gepast.

 

[HSV]

Of:

sub hsv()
Range("f4").Resize(3) = "=INDEX(klanten!R2C1:R200C4,MATCH(factuur!R3C6,klanten!R2C1:R200C1,0),row()-2)"
end sub

 

[don42]

Of:

sub hsv()
Range("f4").Resize(3) = "=INDEX(klanten!R2C1:R200C4,MATCH(factuur!R3C6,klanten!R2C1:R200C1,0),row()-2)"
end sub

 

[don42]

Bedankt allemaal voor jullie hulp
Ik ga voor Row