udvidelse af celler i excel

Ja, det kan snilt laves en makro, dog skal jeg vide noget mere, hvilke celler skal gennemløbes for \"ud delingen\" og hvor skal uddelingen ligge.
Ud fra hvilke kriterier skal der uddeles .

du kan evt sende arket til flemse@post3.tele.dk
NB. skal på skiferie kl. 13.30 så det skal være hurtigt, hvis jeg skal hjælpe. Der selvfølgelig også andre, som kan ordne denne opgave.

Tusind tak for din venlighed, men der skulle efter sigende være en funktion der skulle kunne klare denne opgave.

OK - det siger ikke mig noget.

Kan du ikke uddybe problemet lidt?
Efter hvilke kriterier skal tallene deles ud?

Talene skal divideres ud på hver celle. Dvs. hvis ét tal som eks 25 skal deles ud i 5 celler kommer der i hver celle til at stå 5.

I mit tilfælde skal alle de eksisterende celleværdier deles ud på hver 5 pladser.

Vil det sige, at du har f.eks. 100 værdier i området A1 til A100, som så skal deles ud med lige meget til hver af 5 celler f.eks. B1 til B5?

For så kunne man man vel bare dele totalen ud på de 5 celler med lige meget i hver!

Send evt. dit ark med problemet til:
jan_vogt_hansen@hotmail.com

Nej de værdier i A1 til A100 skal deles ud på B1 til B500. Summen af A1 til A100 skal være den samme som B1 til B500.

Jeg er stadig ikke helt med.

Skal
A1 deles ud til B1-B5 med ligemeget til hver
B1 deles ud til B6-B10 med ligemeget til hver osv.?

Jeg mener selvfølgelig:
A2 deles ud til B6-B10 med ligemeget til hver.

Jeps. Helt rigtig forstået.

Ok, så er jeg ved at være med.
Har du en mail-adresse så sender jeg et forslag.

jeps:
st017183@ait.ac.th

Jeg giver op!

Som Flemming skriver vil lidt VBA-kode kunne klare problemet, men uden .... tjah jeg vil ikke sige det ikke kan lade sig gøre, men jeg har ihvertfald været langt omkring uden held.

Øv. Har I så et forslag til hvordan jeg kan lave den der makro ???

hvad med sådan en lille ting her:

Sub Fordel_en_femtedel()
Dim rCell As Range
Dim dFemtedel As Double
Dim iRow As Integer
Dim iX As Integer

    For Each rCell In Range(\"A1:A10000\")
        If rCell = \"\" And rCell.Offset(1, 0) = \"\" And rCell.Offset(2, 0) = \"\" Then Exit For
       
        If rCell.Row > 1 Then
            iRow = (rCell.Row - 1) * 5
        Else
            iRow = 0
        End If
       
        dFemtedel = rCell / 5
       
        For iX = 1 To 5
            Range(\"B\" & iRow + iX).Value = dFemtedel
        Next iX
    Next rCell

End Sub

OK. Den skal lige bruge lidt justeringer, men tak for det.