ActiveCell.Formula Question

[Mati6n2]

Als ik deze code heb

ActiveCell.Offset(3, 0).Select
ActiveCell.FormulaR1C1 = "=IF(Daghoogte1="""","""",Daghoogte1)"
ActiveCell.Formula = ActiveCell.Formula & "-83"

Het gedeelte tussen de haakjes (Daghoogte1 ....)

Door wat moet ik dit veranderen om de code uit het vak te nemen die ik eerst offset 3cellen lager (in de eerste stap)

Als ik dit weet kan ik opnieuw verder

Ik heb reeds

ActiveCell.FormulaR1C1 =(ActiveCell.Formule)" en verschillende aanhangsels geprob. maar zonder resultaat

 

[Wigi]

Dit is echt een straatje zonder einde, niet?

 

[Mati6n2]

Dit is echt een straatje zonder einde, niet?

Idd Wigi, maar dit is één van mijn laatste stappen die ik zou willen omtrent de formule.

Weet jij het toevallig?

 

[Wigi]

Idd Wigi, maar dit is één van mijn laatste stappen die ik zou willen omtrent de formule.

Weet jij het toevallig?

Dan had ik het wel al lang gezegd hoor

Ik bedoel dat je ipv. nieuwe topics aan te maken, beter een duidelijk voorbeeld kan maken met wat je wilt.

 

[Mati6n2]

Zie bestand

Enkel de formule van de knop moet je dus wijzigen.

Duidelijker?

 

[Wigi]

En dit dan?

Sub zetformule()
    Dim c As Range
    For Each c In Selection
        c.Formula = c.Offset(-3).Formula & "-83"
    Next
End Sub

 

[Mati6n2]

Gaat niet, ppff ellende

 

[Wigi]

Gaat niet, ppff ellende

In jouw voorbeeldbestandje werkt het nochtans.

 

[Wigi]

In jouw voorbeeldbestandje werkt het nochtans.

Zie bijlage

 

[Mati6n2]

Er verschijnt toch niks in het grijze vakje hoor Wigi ? ER verschijnt gewoon -83 en mijn formule is ook weg dan

 

[Wigi]

Selecteer C11:G11 en klik op de knop...

 

[Mati6n2]

Idd het lukt Wigi, nu omzetten :shocked:

Bedankt hé