• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel macro: Formule laten plaatsen met variabele

Status
Niet open voor verdere reacties.

grietjeb

Gebruiker
Lid geworden
22 nov 2011
Berichten
22
Goedemorgen,

In een excel bestand hier wil ik een macro een formule laten plaatsen in een bepaalde cell:

Code:
Dim rowNR As Long



    On Error Resume Next

        Application.DisplayAlerts = False

            rowNR = Application.InputBox _
             (Prompt:="Please enter which row you begin", _
              Title:="BEGIN ROW", Type:=1)

          On Error GoTo 0

    Application.DisplayAlerts = True


[SIZE=3] [B]Range("h" & rowNR).Select
 ActiveCell.FormulaR1C1 = "=G" & rowNR[/B][/SIZE]

In de cell H? waarbij ? dus het ingegeven rowNR (stel, 20) moet dus komen te staan "=G20"

Zoals ik het nu heb staan doet hij neerzetten "='G20' "
Hierdoor werkt het dus niet ;-) Wat doe ik fout?


(PS dit is een klein stukje van de code waar ik even alles heb neergezet wat er volgens mij mee te maken heeft, stuk groter :))
 
Laatst bewerkt:
grietjeb,

Ik denk dat dit zo goed is.
Code:
ActiveCell.FormulaR1C1 = "G" & rowNR
 
En ik denk dat dit beter is: :)

Code:
Range("h" & rowNR).Select
 ActiveCell.FormulaLocal = "=G" & rowNR
 
grietjeb,
Daar kwam ik ook achter en was opzoek naar het juiste .

Gobbe,

Je heb de juiste oplossing met Local
Dan werkt de regel ook zo
Code:
Range("h" & rowNR).FormulaLocal = "=G" & rowNR
 
Laatst bewerkt:
Dan is deze nog iets beter :d
Code:
Range("h" & rowNR).FormulaLocal = "=G" & rowNR

Edit Snellere EA
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan