Redigering af funktion via VBA - fejler

Hvad er indholdet af ActiveCell når du kalder funktionen og hvad skulle resultatet være?

ActiveCell kan eksempelvis indeholde en enkelt henvisning til en celle:

=H11

Denne funktion vil jeg gerne have sat ind i afrundfunktionen:

=AFRUND(H11;-3)

Men når jeg kører min macro giver den:

=AFRUND('H11';-3)

Det ser ud som om det er pga måden du refererer til cellen; du skal bruge R1C1-notation.

Der er lidt spildkode i mit eksempel, da jeg lige skulle teste, men den virker tilsyneladende.


Sub Makro1()

Dim Indhold As String
Dim tmpFormula As String
Dim R As Range

Indhold = Mid(ActiveCell.Formula, 2, 99)
Set R = Range(Indhold)
'Debug.Print R.Address
Indhold = R.Address(False, False, xlR1C1)
tmpFormula = "=ROUND(" & Indhold & ",-3)"
    ActiveCell.FormulaR1C1 = tmpFormula
 
End Sub

Der er noget der ikke helt virker, for funktionen refererer nu kun til J21 og ikke den aktive celle?

Det næste problem er så også, at den kun virker på en Range og ikke på eksempelvis en =sum(a1:b1)

Sub Makro1()

Dim Indhold As String

Indhold = Strings.Mid(ActiveCell.Formula, 2, 99)

ActiveCell.Formula = "=ROUND(" + Indhold + ",-3)"
   
End Sub

?

Hej Excelent

Beklager det sene svar - Det virker så tak for hjælpen.

TVC