Office: Array dynamisch kürzen

Hallo zusammen,

ich hoffe ihr könnt mir weiterhelfen, ich komme einfach nicht weiter. Und zwar geht es um Folgendes:

Ich habe ein ganz langes Array mit 3 Spalten, hier mal ein Beispielauschnitt (ihr findet die Tabelle in Excel Format plus Makro im Anhang*wink.gif* )

Gewinn, Anfang, Ende
100, 5, 16
50, 6, 16
43, 18, 24
20, 8, 10

Ich habe schon vorher die Zeilen in das Array so eingetragen, dass die Einträge absteigend nach der Höhe des Gewinns sortiert sind.

"Anfang" ist dabei die Stunde, in der Prozess i beginnt und bis "Ende" dauert. Also für den 1. Eintrag geht Prozess i=1 von der 5. Stunde bis zur 16. Stunde und im 2. Eintrag geht Prozess i=2 von der 6. bis zur 16. Stunde. Allerdings dürfen sich die Prozesse nicht überlagern. Sprich ich möchte den Eintrag für i=2 löschen, da er sich mit i=1 überschneidet.

Prozess i=3 ist wieder zulässig, da der Anfang von i=3 >= Ende von i=1 ist.

Insgesamt müssen also i=2 mit Gewinn=50 und i=4 mit Gewinn=20 gelöscht werden.

Leider komme ich nicht auf das richtige Ergebnis. Mein Problem ist, dass bei meinem Makro immer nur der Intervall vom letzten Prozess anschaut wird, aber nicht alle Intervalle die noch drin sind.

Ich habe meinen Code ziemlich ausführlich kommentiert, damit ihr besser verstehen könnt, was ich mache. Falls ihr noch Fragen habt, versuche ich mein Problem bzw. meine Ideen hier noch ausführlicher zu beschreiben.

Ich würde mich sehr über eure Hilfe freuen.
Schon mal besten Dank im Voraus,
Lisa

:)

 

Habe überlegt, das ganz noch über eine weitere Schleife zu machen:

Code:

 

Hallo,

Code:

 

Hey vielen, vielen Dank für den Code.

Ich muss ihn noch 100%ig verstehen, aber funktioniert einwandfrei!

Danke!

 

Korrektur

Code:

 

Danke für deine Antwort.


Leider wird mir mit dem korrigierten Code nichts mehr angezeigt.

Problem sind die Zeilen:

Code:

Warum meintest du dass der 1. Code von dir falsch ist?
Mit dem alten Code klappt bei mir alles super, auch wenn ich eine Tabelle von über 2000 Zeilen habe. Allerdings habe ich noch eine Frage....

Ich wollte jetzt noch eine Mindestabstandszeit einbauen. Sprich Prozess 2 darf z.B. erst 2 Stunden später anfangen nachdem Prozess 1 aufgehört hat.

Ich hatte mir überlegt das ganze einfach wie folgt zu ergänzen, komme aber leider auf kein richtigtes Ergebnis *frown.gif*

Code:

Würde mich sehr über eine Antwort freuen und vielen Dank schonmal für die Hilfe!

 

Hallo,

Nun, es werden immer 2 Datensätze verglichen. Liegt eine Überschneidung vor,
müssen beide Datensätze gekennzeichnet werden.

Beim 1. Code wird bei Überschneidung immer nur der 2. Datensatz gekennzeichnet.

Kommt nun drauf an was du auswerten willst.

Ich denke für dich ist der 1. Code der richtige:
Alle folgenden Datensätze die sich mit dem 1. Datensatz schneiden werden
nicht berücksichtigt.

Löse das im Blatt in einer weiteren Spalte. Pass dann im Code die jeweiligen SpaltenIndizes an.

Code:

 

Hallo xlph,

vielen Dank für deine Antwort. Das mit der weiteren Spalte ist ein einfacher und guter Tipp! *rolleyes.gif*

Leider muss ich dich nochmal nerven *frown.gif*

Ich habe den Quellcode jetzt mal auf eine sehr große Tabelle angewandt- leider werden mir nur die ersten 3 Werte angezeigt. Danach werden die Werte -warum auch immer- abgeschnitten. Habe die Tabelle mal angehangen.
Der dritte Wert aus der "Berechnung" endet ja bei 80. Es gibt allerdings noch genügend Werte die nach 80 starten. der nächste Wert wäre z.B. ab 89 mit einem Gewinn von -12886.

Hast du eine Erklärung woran das liegen könnte? Das Array mit Result ist ja groß genug um alle möglichen Werte reinzuschreiben :/

Das wird auch endlich meine letzte Frage gewesen sein! Versprochen *Smilie *wink.gif*

 

Hallo,

anbei ein etwas anderer Ansatz:
Code:

Gruß
Aloys

 

Hallo,

jeder Zeitabschnit schneidet mindestens einen anderen.

Somit dürften keine Datensätze angezeigt werden ( oder nach Version 2: 3 Datensätze).

@Aloys
das haut nicht hin

 

Hallo,

zur Prüfung Visualisierung starten.

 

Hallo zusammen,

den von Aloys werde ich gleich auch nochmal testen, vielen Dank dir !

@ xlph:

Wow, danke für deine Visualisierung! Vielen vielen Dank.
Ich habe es mir einfach mit einem Filter angeschaut, also einfach gesagt: den Filter größer als letzter Eintrag in Ergebnistabelle gesetzt. Und dadurch sehe ich relativ schnell, dass auch danach noch Einträge kommen, die sich nicht mit den Einträgen in der Ergebnistabelle überlappen- Habs einfach nochmal ohne die Spalte 4 und mit dem Filter hochgeladen :/

Ach echt blöd, dass kann doch nicht so schwer sein :/

 

Nochmals es überschneiden sich ALLE Datensätze.

Somit dürften keine übrig bleiben.

Das ist auch ersichtlich in der Visualisierung.

Und mit dem Filter gleichst nur einen Datensatz mit den restlichen ab.
Aber es müssen alle mit allen Datensätzen verglichen werden.

Es ist wie eine Kette. Es gibt kein Kettenglied das für sich alleine liegt.

 

Danke für die fixe Antwort.

Ich glaube wir haben aneinander vorbei geredet und man sieht, dass ich deinen Quellcode auch noch nicht ganz verstanden habe :/

Mein Ziel ist es, dass ich immer die Werte in die Ergebnistabelle aufnehme, dich sich nicht mit den Werten aus der Ergebnistabelle überlappen. Also wie ja auch die ersten 3 Datensätzen . Und anhand des Filters sieht man ja, dass auch noch nach der 78. Stunde mögliche Intervalle kommen, die in die Ergebnistabelle aufgenommen werden, da diese größer 78 sind und somit nicht in den Intervallen aus der Ergebnistabelle liegen.

Also der 1. Wert aus dem Filter: Gewinn=-13461 und Anfang 79 bis Ende 91, liegt ja nicht in den Intervallen aus der Ergebnistabelle.

Ich knobel mal noch weiter...

 

Falls es noch jdm interessiert, ich habe es jetzt anders gelöst und komme auf das gewünschte Ergebnis. Du hast mir aber sehr geholfen xlph, danke!*Smilie

Code: