Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

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
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige