makro til visning af skiftende cellereferencer i én celle

Du kan ikke bruge ø, jeg kan ikke få det til at virke, den godtager vist ikke danske bogstaver


Dim I
Sub Makro1()
I = I + 1
    Range("A2").Formula = "=R[" & I + 1 & "]C[2]"
If I = 100 Then I = 1' når den når C100 starter den forfra, ret til den sidste du vil se
End Sub

Public Sub Demo()
    Dim sFormula As String
    Dim lRowNo As Long
   
    sFormula = Worksheets("Sheet1").Range("A1").FormulaR1C1
    lRowNo = CLng(Mid(sFormula, InStr(1, sFormula, "[") + 1, _
            InStr(InStr(1, sFormula, "["), sFormula, "]") - InStr(1, sFormula, "[") - 1))
    Worksheets("Sheet1").Range("A1").FormulaR1C1 = "=R[" & CStr(lRowNo + 1) & "]C[2]"
End Sub

kabbak-> hvad sker der med variablen I når regnearket har været lukket? I=0

ja flemming

ja, det kunne jeg jo godt se, hvorfor jeg kunne forestille mig, at dit forslag ikke holder på et regneark der bruges flere gange.

Jeg har forsøgt at køre løsningen fra flemmingdahl, men den melder runtime error '5'. Invalid procedure call or argument.
I visual basic markerer den følgende to linjer med gult:

    lRowNo = CLng(Mid(sFormula, InStr(1, sFormula, "[") + 1, _
            InStr(InStr(1, sFormula, "["), sFormula, "]") - InStr(1, sFormula, "[") - 1))

Jeg har ændret arknavn fra sheet til ark to steder.
   
Jeg står i A2, værdier der skal vises står i C2-C5000
Hvad er problemet?

Flemming

prøv evt. denne

Sub Changeref()
Dim r, r2
r = [a2].Formula
r2 = Val(Mid(r, 3, 4)) - 1
[a2].Activate
ActiveCell.FormulaR1C1 = "=R[" & r2 & "]c[2]"
End Sub

excelent, den virker optimalt.

OK

hvordan tildeler jeg excelent point, når der står et andet navn i acccepter,afvis ruden.

Tak

Velbekom