Formules aanpassen

[Marloes1998]

Ik het een spreadsheet gemaakt met veel formules, maar nu dient in de formules (*1000) te worden toegevoegd en bovendien kan ik de formule niet doorslepen. Nu kan ik elke cel handmatig aanpassen, want CTR+H werkt ook niet, maar misschien weet hiervoor een mooie oplossing.:d



Marloes

 

[paulva]

Met de volgende macro zou het moeten lukken (in dit geval d6 tot d19):

Sub wijzigen()

Dim intKolomBegin As Integer
Dim intKolomEinde As Integer
Dim intRijBegin As Integer
Dim intRijEinde As Integer
Dim intRijteller As Integer
Dim intKolomteller As Integer

intKolomBegin = 4
intKolomEinde = 4
intRijBegin = 6
intRijEinde = 19

For intKolomteller = intKolomBegin To intKolomEinde
    For intRijteller = intRijBegin To intRijEinde
        ActiveSheet.Range(Cells(intRijteller, intKolomteller), Cells(intRijteller, intKolomteller)).FormulaLocal = ActiveSheet.Range(Cells(intRijteller, intKolomteller), Cells(intRijteller, intKolomteller)).FormulaLocal & "*1000"
    Next

Next

 

[Marloes1998]

Dank voor je reactie.

Betekent dit wanneer er een bijvoorbeeld ergens haakjes geplaatst moet worden dat de macro vervolgens ook weer dient te worden aangepast?

Ik begrijp uit je reactie dat aanpassingen in de formules alleen mogelijk zijn via een macro Of zijn er toch nog andere mogelijkheden?

Marloes

 

[paulva]

Als de formules enigszins op mekaar lijken, kan je natuurlijk ook absolute verwijzingen gebruiken. ($ teken).

 

[Marloes1998]

Ik ga het proberen. In ieder geval bedankt!

Marloes