hier breekt mijn klop ??

[DeCor]

Ik heb een Excel file (kalender) gemaakt die de kleuren telt, nu wil ik de maand januari 2008 erbij te plaatsen en wanneer ik het bereik van de formule aanpas en opnieuw op genereren druk (sleutel) wordt het bereik in de formule opnieuw naar het oude aangepast?

Kan iemand me helpen?
Alvast bedankt.
DeCor

 

[tilpi]

Het helpt niet om het bereik in de formule te veranderen als deze gegenereerd wordt door een macro.

Vervang de bestaande macro door deze en het gaat wel goed.

Sub genereren()
'
    Range("AM2").Select
    ActiveCell.FormulaR1C1 = "=TellenKleur(RC[-37]:R[24]C[-1])"
    Range("AM4").Select
    ActiveCell.FormulaR1C1 = "=TellenKleur(R[-2]C[-37]:R[22]C[-1])"
    Range("AM8").Select
    ActiveCell.FormulaR1C1 = "=TellenKleur(R[-6]C[-37]:R[18]C[-1])"
    Range("AM10").Select
    ActiveCell.FormulaR1C1 = "=TellenKleur(R[-8]C[-37]:R[16]C[-1])"
    Range("A01").Select
End Sub

Nu gaat dit weer goed t/m jan 2008. Als je dit bereik wilt vergroten, dan moeten

R[24], R[22], R[18] en R[16] voor iedere toegevoegde maand met twee verhoogd worden.

Mvg

Piet

 

[tilpi]

Misschien is onderstaande nog handiger

Sub genereren()
    Range("AM2").FormulaR1C1 = "=TellenKleur(R2C2:R26C38)"
    Range("AM4").FormulaR1C1 = "=TellenKleur(R2C2:R26C38)"
    Range("AM8").FormulaR1C1 = "=TellenKleur(R2C2:R26C38)"
    Range("AM10").FormulaR1C1 = "=TellenKleur(R2C2:R26C38)"
    Range("A01").Select
End Sub

Hier hoef je per maand alleen de R26 met twee te verhogen.

Mvg

Piet

 

[DeCor]

Bedankt tilpi,

Dat ik dit over het hoofd heb gezien.

mvg,
DeCor: thumb: