Dele resultaterne ud i 3 kolonner, så summen af hver kolonnen bliver så ens som muligt.

Hvad er formålet - hvis man må spørge?

Hjælp til dimensionering af en stikledning til et hus. Der er 3 faser (ledninger) som alle helst skal være ligeligt belastede.

Ok - er der altid 10 resultater?

Nej, det kan variere fra flere til færre. Men overskydende "resultat-felter" kan sættes til '0'.

Ok - du kan prøve med denne:

OBS: I kol A er resultaterne - har taget en kopi af disse i Kol. B
Disse nulstilles efterhånden som de bliver brugt.

Dim sumA As Integer, antalRæk As Integer, ræk As Integer, gsnit As Double
Dim hVærdi As Integer, lVærdi As Integer
Sub test()
    housekeeping
   
    udførGennemløb 3
    udførGennemløb 4
    udførGennemløb 5
   
End Sub
Private Sub housekeeping()
    sumA = 0
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRæk
        sumA = sumA + Range("A" & ræk)
    Next ræk
   
    gsnit = sumA / 3
   
    hVærdi = WorksheetFunction.RoundUp(gsnit, 0)
    lVærdi = WorksheetFunction.RoundDown(gsnit, 0)
End Sub
Private Sub udførGennemløb(kolonne)
Dim total As Integer, vægt As Integer
    total = 0
   
    For ræk = 1 To antalRæk
        If total < hVærdi Then
            vægt = Range("B" & ræk)
            If vægt <> 0 Then
              total = total + vægt
                Cells(ræk, kolonne) = vægt
                Range("B" & ræk) = 0
            End If
        Else
            If total = hVærdi Or total = lVærdi Then
                Exit Sub
            End If
        End If
   
    Next ræk
End Sub

Hej Supertekst!

Først og fremmest: endnu en gang tak for hjælpen (med tanke på mine andre spørgsmål du har hjulpet med :) ).

Basis ideen med koden er rigtig god, dog er der et lille hængeparti, som kan føre til fejl. Den kan ikke mixe resultaterne i kolonnerne, altså pt. laves først kol3, så kol4 og til sidst kol5. Hvis der er for store variationer i resultaterne, så vil summene blive for forskellige.

Mål:
At i stedet for, at kol3 bliver defineret af de første resultater, så skal den kunne bruge både de første resultater, men også de midterste og sidste.


Jeg prøver at arbejde lidt videre med koden. Jeg vender tilbage med det samme, hvis jeg finder ud af noget.

På forhånd mange tak for hjælpen,
TTJ

Hej TTJ

Selv tak - kunne ikke dy mig fra at prøve - vel vidende at udkastet ikke var helt anvendeligt.

Du giver blot signal ..

Mvh
Supertekst

Hej igen,

Lang tid siden - men det er ikke fordi, at jeg har glemt mit problem! Jeg har arbejdet på det sideløbende med nogle af mine andre projekter, derfor har det taget mig så lang tid.

- Men det er ikke ensbetydende med, at jeg har løst problemet :) . Jeg giver det ekstra forsøg her i weekenden, ellers må brugeren selv  indtaste dataen i de respektive felter, (med auto summerings labels i bunden).

Mvh

Hej Supertekst,

Mine evner rækker ikke til mit ønske, desværre. Løsningen blev, at brugeren selv må indsætte dataen, men med en autoopdaterende label i bunden som giver summen.

Jeg takker for hjælpen,

På gensyn

Mvh

Det var så lidt..