Komfortable i Schleifenlösung o.ä. gesucht :)
28.06.2017 12:22:09
FelixZ
ich habe folgendes Problem, welches ich selber nur sehr unschön lösen könnte, wenn überhaupt.
Ich beschreibe jetzt mal ausführlich um was es geht, bitte nicht erschlagen fühlen, das Problem selbst ist eigentlich ganz simpel zu beschreiben. Das Excel File habe ich auch beigefügt.
Für ein Projekt plane ich für mehrere Standorte verschiedene Rollen auf Stundenbasis und ein paar zusätzliche Aufwendungen auf Kostenbasis.
Geplant wird immer quartalsweise für 5 Jahre.
Welche Rollen jeder Standort zu Verfügung stellen kann ist fix, jedoch benötigt man für ein Projekt immer nur einen Teil an Rollen sowie nur einen Teil an zusätzlichen Kosten.
Theoretisch können Stunden für eine Projektrolle und zusätzliche Kosten in jedem Quartal innerhalb der 5 Jahre anfallen. Z.B. im Im Quartal 1,2 und 3 vom Jahr 2019 jeweils 200 Stunden.
Verplante Projektrollen und anfallende Kosten sollen für die weitere Verarbeitung in ein separates Tabellenballt zeilenweise kopiert werden. Konkret steht in einer Zeile z. B. die Stundenanzahl für eine Rolle mit einigen zusätzlichen Informationen und in der nächsten Zeile wieder die Stundenzahl für eine Rolle + einige zusätzliche Infos usw.
Jetzt zum konkreten Problem:
Es sollen nur Rollen in das Tabellenblatt kopiert werden wo größer 0 Stunden anfallen bzw. zusätzlich Kosten die größer 0 sind. Grund, die anderen werden offenbar für dieses Projekt nicht benötigt.
Das Makro sollte beim durchforsten des Tabellenblatts Rollen wo Stunden anfallen / Kosten wo Beträge anfallen erkennen und diese dann mit weiteren Zellen in ein separates Tabellenblatt kopieren. Am Ende sollten in diesem separaten Tabellenblatt untereinander alle verplanten Rollen / verplante Kosten quartalsweise und mit zusätzlichen Projektinformationen auftauchen.
Auf Grund von meinen schlechten VBA Kenntnissen würde ich jetzt unendlich viele If Bedingungen aneinander reihen, obwohl es sicherlich eine elegantere Lösung gibt.
https://www.herber.de/bbs/user/114540.xlsm
Ich habe das Excel-File mal mit angefügt, da es das Problem sicherlich viel besser aufzeigt, als ich hier beschreiben kann. Ich habe als Beispiel mal einige wenige Rollen verplant sowie eine Kostenposition und in dem separaten Tabellenblatt in jeder Zeile die Zelle hingeschrieben, die in diesem konkreten Fall hätten kopiert werden sollen. Außerdem habe ich im Makro eine primitive If Bedingung hinterlegt, mit der ich eine einzige Zeile hätte befüllen können. Es wird schnell klar, dass es nicht effizient wäre für alle Rollen und jeweils 20 Quartale (weil 5 Jahre) zig If Abfolgen zu programmieren.
Für eine deutlich bessere Lösung, wäre ich sehr dankbar :)
Ich hoffe ich konnte alles halbwegs gut beschreiben, ansonsten sehr gerne nachfragen.
Achja, es handelt sich hierbei um eine stark abgespeckte Version des Files, es beinhaltet lediglich das Makro "Import for GPS", da der Upload sonst zu groß war.
Viele Grüße und schon mal vorab vielen Dank
Felix