ik kom niet uit het volgende:
ik tel een aantal getallen bij elkaar op in een rij: in cel A10, B10 en C10
wordt het totaal berekend van de bovenliggende cellen.
Dus: in A10 staat =SOM(A1:A9), enz.
nu wil ik deze uitkomsten in een ander werkblad hebben maar dan in een
kolom.
Hoe krijg ik deze in het andere werkblad in A1, A2 en A3 en dan ook nog zo
dat hij de fuctie in deze cel zet?
Wanneer ik er voor kies om de cellen A10, B10 en C10 te kopieren en deze via
plakken speciaal, waarden, transponeren overzet, dan zet hij de waarden er
netjes in echter niet de formules.
Aangezien de uitkomsten veranderen doordat de bovenliggende cellen per week
ingevuld worden, heb ik hier niets aan.
Wanneer ik er voor kies om de cellen A10, B10 en C10 te kopieren en deze via
plakken speciaal, formules, transponeren overzet, dan wordt de uitkomst
helemaal verkeerd.
Hoe kopieer ik de formules van de rij naar de kolom in het andere werkblad?
Het enige dat ik heb kunnen vinden dat werkt is om in cel A1 te zetten:
=Blad1!A10
Aangezien het bijna 300 cellen zijn en ik de komende drie maanden ook nog
andere dingen te doen heb, lijkt me dit niet de ideale oplossing...
Bij voorbaat dank,
Redouan Jacobs
(kan het nog op 2 januari? Vast wel...: allemaal de beste wensen voor het
nieuwe jaar!)
"Access Denied" <nem...@hotmail.com> schreef in bericht
news:zN1R9.256$iI1.1...@amsnews02.chello.com...
Een woordje uitleg hierover kan je vinden op:
http://users.pandora.be/ingrid/excel/matrix.htm#func
niet vergeten om de formule in te voeren met [Ctrl]+[Shift]+[Enter]
Ingrid
Access Denied schreef in news:zN1R9.256$iI1.1...@amsnews02.chello.com
"Nico" <n.a.z.t...@chello.nl> schreef in bericht
news:me2R9.213704$4B2.31...@amsnews03.chello.com...
Het is geen 2 januari meer, maar misschien kun je het nog gebruiken?
Onderstaande code zet verwijzingen naar alle cellen in rij 10 van blad 1 in
kolom 1 van blad2:
Sub RijNaarKolomInAnderBlad()
Dim rng As Range
'in kolom 1 van blad 2 worden verwijzingen gezet naar
'de alle (gebruikte) cellen in rij 10 van blad 1
For Each rng In Sheets("blad1").UsedRange.Rows(10).Cells
Sheets("blad2").Cells(rng.Column, 1).Formula = "=Blad1!" &
rng.Address
Next
End Sub
Jan