[VBA in Excel] Gemiddelde uitrekenen uit verschillende....

[HarryL]

Werkbladen.

Ik wil dmv een stukje code het gemiddelde uitrekenen van 3 werkbladen.
Hieronder in de code is te zien, dat ik eerst alles bij elkaar optel, en dan probeer te delen door 3.
Maar als hij het dus deelt door 3, zoals ik in de code voor mijn gevoel doe, zet excel overal 0 neer.
Ik kan dmv de help van VBA Excel ook niks vinden, en google is ook niet bepaald behulpzaam.
Ik zit hier nu ong. 2 uur mee te stoeien....

code:

    Sheets("Eindresultaat").Select
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=SUM('Periode 1'!RC+'Periode 2'!RC+'Periode 3'!RC)"
    Selection.AutoFill Destination:=Range("C3:I3"), Type:=xlFillDefault
    Range("C3:I3").Select
    Selection.AutoFill Destination:=Range("C3:I20"), Type:=xlFillDefault
    Range("C3:I20").Select
    Range("C3:I20").Value = Value / 3

[Verwijderd]

Klopt helemaal, want in jouw:

code:

Value / 3

heeft Value de waarde 0.

[HarryL]

Verwijderd schreef op 21 september 2004 @ 11:25:
Klopt helemaal, want in jouw:

code:

Value / 3

heeft Value de waarde 0.

Maar hij moet de Value dus halen uit een range (C3:i20)
Hoe dien ik dit aan te geven dan?

[Verwijderd]

Ik weet het niet helemaal zeker maar moet het niet zo:

code:

Range("C3:I20").Value = Range("C3:I20").Value / 3

[HarryL]

Verwijderd schreef op 21 september 2004 @ 12:38:
Ik weet het niet helemaal zeker maar moet het niet zo:

code:

Range("C3:I20").Value = Range("C3:I20").Value / 3

Nee dat was hem dus niet, die had ik zelf ook geprobeerd en die werkte bij mij niet...
Ik heb behoorlijk door zitten zoeken en programmeren, en ben op de volgende werkende code gekomen:
Ik heb een soort Loop gemaakt:

code:

    Dim A As Range
        
    For Each A In Range("C3:I20")
        A.Value = A.Value / 3
    Next A

[ Voor 9% gewijzigd door HarryL op 21-09-2004 14:47 ]