RC[4] vervangen door RC met i (integer)

[dido04]

Nog een vraag. Als je volgende opdracht hebt:

"=IF(blad1!RC[4]="3636", Blad!RC[1],"""")"

en je wil de RC[4] vervangen door RC[4-i], waarbij i een variabele met type integer is, hoe moet dat dan ingevoerd worden?

Ik probeerde reeds RC[4-i] en RC[4- &i]

Maar beide oplossingen lukken niet.

Dank voor jullie hulp

 

[HSV]

"=IF(blad1!RC[" & i & "]=""3636"", Blad1!RC[1],"""")"

 

[dido04]

Kan je dit ook met een If Then oplossen, is makkelijker voor bepalen cel

Ik heb nog iets geprobeerd, maar ook hier weer waarschijnlijk tegen alle regels van het spel gezondigd, waardoor het niet werkt. Ik heb een If... Then gemaakt met de range van de cellen, maar krijg ook weer foutmeldingen.

Dim i As Integer

For i = 3 To 10


IF(Blad1!Range("E" & i)=(""3636""),Blad1!Range("A" & i),"""")

Next i

De 3636 is geen getal maar een tekst in het werkblad (celeigenschappen = tekst)...

Sorry voor alle waarschijnlijk domme vragen

 

[HSV]

for i = 1 to 3
'cells(i,2) = [COLOR=#333333]"=IF(blad1!RC[" & i & "]=""3636"", Blad1!RC[1],"""")"
[/COLOR]range("b" & i) = "=IF(Blad1!E" & i & "=""tekst"",Blad1!A" & i & ","""")"[COLOR=#333333]
next i
[/COLOR]

 

[dido04]

Werkt prima

Heel erg bedankt, net geprobeerd en het werkt!

 

[dido04]

Werkt, maar traag

Hallo (nog eens) iedereen

De onderstaande oplossing werkt, maar zeer traag. Ik ben wat gaan lezen op het www en er staat op diverse sites dat het verwijzingssysteem van Excel met de R en C veel sneller werkt bij berekeningen.

Op mijn onderstaand voorbeeld heb ik i van 3 tot 50, maar eigenlijk moet het tot 2000 zijn en dan is met onderstaande code de PC wel even bezig. Als ik dit zou willen wijzigen met de R en C, hoe moet dit dan, en zou dit inderdaad veel sneller werken?

Sub STATISTICS2()

Dim i As Integer
Dim Wanneer As String

Sheets("RESULTS").Select

For i = 3 To 50

Range("a" & i) = "=IF(Blad1!E" & i & "=""11/01/2016"",Blad1!A" & i & ","""")"
Range("b" & i) = "=IF(Blad1!E" & i & "=""11/01/2016"",Blad1!B" & i & ","""")"
Range("c" & i) = "=IF(Blad1!E" & i & "=""11/01/2016"",Blad1!C" & i & ","""")"
Range("d" & i) = "=IF(Blad1!E" & i & "=""11/01/2016"",Blad1!D" & i & ","""")"
Range("e" & i) = "=IF(Blad1!E" & i & "=""11/01/2016"",Blad1!F" & i & ","""")"
Range("f" & i) = "=IF(Blad1!E" & i & "=""11/01/2016"",Blad1!I" & i & ","""")"
Next i

End Sub

Alweer dank voor jullie hulp

 

[HSV]

Dit moet voldoende zijn.

Sub hsv()
 Sheets(2).Range("A1").Resize(2000) = "=IF(blad1!RC[4]=""3636"", Blad1!RC,"""")"
End Sub