Variable i "range"

anvend cells i stedet for range

cells(irow,sColBegin).select

Du skal svare med tal i alle 3 inputbokse, men du skal vist også styre hvor den skal slå op, for det styrer den ud fra hvilke kolonner du vælger, så de skal nok være faste.
Se eksempel i formulalocal, dansk version

Public Sub test()
Dim iRowBegin As Integer
Dim iRowEnd As Integer
Dim sColBegin As Integer
Dim sColEnd As Integer
Dim irow As Integer


iRowBegin = InputBox("Indtast startrækkenummer", "Startrække")
iRowEnd = InputBox("Indtast slutrækkenummer", "Slutrække")
sColBegin = InputBox("Indtast startkolonnenummer", "Startkolonne")

irow = iRowBegin

Do Until irow > iRowEnd


'Cells(irow, sColBegin).FormulaR1C1 = "=VLOOKUP(R[-1]C,Ark2!R[-1]C:R[29]C[1]," & irow & ",0)"
Cells(irow, sColBegin).FormulaLocal = "=LOPSLAG(C" & irow & ";Ark2!$C$1:$D$31;" & irow & ";0)"
irow = irow + 1
Loop

End Sub

ret lige

Cells(irow, sColBegin).FormulaLocal = "=LOPSLAG(C" & irow & ";Ark2!$C$1:$D$31;" & irow & ";0)"
til
Cells(irow, sColBegin).FormulaLocal = "=LOPSLAG(C" & irow & ";Ark2!$C$1:$D$31;5;0)"

Ideen med denne makro er, at lave en løkke som indsætter et lopslag i flere celler, og hvor kolonnenr. i lopslaget vokser med en pr. loop. Hvis man eks. skal trække et lopslag ned over 50 rækker, skal man jo efterfølgende ind og rette 49 gange i kolonne nr.'et i lopslagsformlerne. Så, irow skal vel blive stående. Hvorfor kan kolonnevariablen ikke være "String"?

Det  må man da kunne lave med en formel
prøv indsæt de første 2 LOPSLAG's formler her

Kan vel også illustreres med Vopslag ;O)

=VOPSLAG(A1;Ark2!A1:H50;1;0), hvis jeg så gerne vil anvende denne formel og "trække" formlen ned over de næste 49 rækker, så skulle formlen i række 2 så gerne blive til VOPSLAG(A1;Ark2!A1:H50;2;0) osv... ;O) Men her skal man jo så selv rette kolonne nr. fra 1 til 2 og til 3 osv...

=VOPSLAG(A1;Ark2!A1:H50;RÆKKE(1:1);0)

Hvis du mener, at jeg kan indsætte denne formel og trække den ned, så virker det ikke ;o( ????

Og NU virker det, havde tastet forkert - TAK for hjælpen ;O)

det har nok været en fejl 40 :-)