Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: gleichmäßig aufteilen

gleichmäßig aufteilen
03.06.2007 15:49:00
Oberschlumpf
Hallo Leute
Kennt jemand eine Lösung für dieses Problem?
Ich habe n viele Zeiten, z Bsp
1,56
2,28
2,05
1,30
1,78
2,00
1,55
1,63
Nun möchte ich, dass diese Zeiten automatisch in 2 Blöcke aufgeteilt wird.
Und zwar so, dass die Summe eines Blockes nicht grö0er als 8,00 ist. Die Anzahl der Einzelwerte pro Block ist egal - Hauptsache ein Block übersteigt nicht die Summe von 8,00.
Vielen Dank für eure Hilfe.
Ciao
Thorsten

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gleichmäßig aufteilen
03.06.2007 16:37:24
Roland
Hallo Thorsten,
mal als Ansatz (die Zeiten stehen in Spalte A):

Sub aufteilen()
Dim b As Byte, c As Byte, i As Integer, zwischensumme As Double
b = 1: c = 2
For i = 1 To Cells(65536, 1).End(xlUp).Row
zwischensumme = zwischensumme + Cells(i, 1)
If zwischensumme 


Passt das?
Gruß
Roland Hochhäuser

Anzeige
AW: gleichmäßig aufteilen
03.06.2007 16:52:25
Oberschlumpf
Hi Roland
Ja, es passt!
Jetzt, wo ich die Lösung sehe, ist es eigtl einfach - aber ohne dich hätt ich länger dazu gebraucht als du.
Vielen Dank!
Ciao
Thorsten
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige