Startdatum und Enddatum eines Datumsbereichs

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Leute,
erstmal VIELEN VIELEN Dank an euch beide, Michael und Werner.
Das sind ganz schöne Bretter, die ihr mir da geliefert habt. Da hab ich erstmal ne Weile zu knabbern dran, bis ich das vollends kappiere.
Mit Aggregat hab ich noch nie etwas gemacht, aber sehe,dass ich durch jedes Projekt immer wieder neues bekomme, worauf ich nie gekommen wäre.
Michael, der Code funktioniert einwandfrei, obwohl ich wirklich Schwierigkeiten hatte da durchzusteigen... liegt wahrscheinlich an den ganzen Variablen... puhh.
Leute, die Beispielmappe ist natürlich nur eine vereinfachte Darstellung dessen, was ich eigentlich vorhabe (der Einfachkeit halber, um mein Problem schrittweise zu erklären).
Ich habe jetzt mit euren Lösungen folgendes versucht:
Ich brauche unbedingt noch ein Suchkriterium, um die Bereiche nochmals zu untergliedern.
Es handelt sich um drei Begriffe, "sick" für krank, "vacation" (Urlaub) und "compensation" (Überstunden).
Ich erkläre mal das grundsätzliche Ziel:
In der Beispielmappe habe ich 3 sheets, "Time sheet", "Vacation sheet" und "Sick leave sheet".
In "Time sheet" sind alle Eintragungen, das Datum ist fortlaufend ohne Unterbrechung für das ganze Jahr.
"Sick leave sheet" und "Vacation sheet" sind die Zielblätter.
In das "Sick leave sheet" sollen nun alle Krankheitsbereiche mit Start- und Enddatum aufgelistet werden. Ich habe das erwünschte Ergebnis mal in "Sick leave sheet" eingetragen, gemäß den Eintragungen im "Time sheet".
Im "Vacation sheet" habe ich das Gleiche getan, dort ist vacation days (Urlaubstage -Bereiche) und compensation days (freie Tage aus Überstunden -Bereiche) eingetragen.
Lange Rede, kurzer Sinn (hahahaa... wenn's mal immer so einfach wäre, wie es ausgesprochen werden kann...)
... ich versuche schon die ganze Zeit ein Suchkriterium mit einzubauen, die mir eine weitere selektion der Bereiche ermöglicht.
Im vierten Blatt, das eigentlich nicht zur Arbeitsmappe gehört (Tabelle1) habe ich nochmal eure Lösungsvorschläge zusammengefaßt.
Desweiteren habe ich hier einen Code (mit Schaltfläche "Daten aus Time sheet holen"), der mir die Daten aus "Time sheet" zumindest zusammenrafft, gemäß Spalte H, ohne Leerzeilen, nur wo eben die Eintragungen "sick", "vacation" oder "compensation" stehen.
Die verschiedenen Bereiche habe ich farblich unterschiedlich (händisch) markiert.
Sagt mal, ist es möglich die Bereiche nochmals mit einem Suchkriterium zu untergliedern.
In den zusammengerafften Daten in Tabelle1 ist zum Beispiel ein Problembereich vom 11.01. bis 16.01..
Da das Datum fortlaufend und ohne eine Unterbrechung ist, wird es natürlich als ein Datumsbereich gewertet. Aber es sind 3 verschiedene Eintragungen hier (sick 11.-13.01., vacation 14.01. und compensation 15.-16.01.).
https://www.herber.de/bbs/user/101619.xlsm
Ich hoffe ihr versteht was ich will, ...ich weiß schon gar nicht mehr, wie ich das erklären kann...
Schreibt bitte auch, wenn es nicht möglich ist, dann weiß ich Bescheid und muss mir irgenetwas anderes ausdenken. Der Mappenaufbau ist leider vom Cheffe vorgegeben.
Vielen Dank nochmal an euch Beide,
und sorry für die späte Antwort ;-) ...musste Arbeiten und auch erstmal kappieren, was ich geschrieben habt...
Gruß
Alex

Hi Alex,
mach Dir keine Gedanken - den ersten Thread hatte ich nicht gesehen oder vielleicht tatsächlich als "zu viel Arbeit" links liegen gelassen: ich weiß es nicht mehr.
Bei solchen verschachtelten Schleifen liegt der Teufel oft im Detail, aber auch in der Faulheit des Programmierers:
zu 2.: ich hatte nicht überprüft, ob überhaupt Werte übernommen wurden: mit je einem If vor den letzten beiden Zeilen hat sich das erledigt.
zu 3.: der nächste Mecker: das war in der ursprünglichen Datei nicht vorhanden! Ich habe die Bedingung in der ersten While erweitert, so daß public holiday wie eine leere Zelle behandelt und einfach übersprungen wird.
zu 1.: ich hatte die Arrays s und v nicht geleert; s hat nur drei Spalten, die *immer* überschrieben werden, v hat allerdings 4, von denen ich nur immer die ersten beiden und nur eine der beiden weiteren mit Werten befüllt hatte: so blieben die 12h als 0,5 Tage stehen.
Ich habe eine For-Schleife nach der Array-Zuweisung eingefügt, in der beide Arrays komplett geleert werden.
Übrigens: die Seitenumbruchvorschau bremst Excel; wenn Du mit größeren Datenmengen hantierst, solltest Du sie wirklich nur vorübergehend zur Überprüfung des Drucklayouts verwenden.
Zuckerle
zu 4.: Das Simpelste ist, die Datenüberprüfung so anzupassen, daß für Sa und So nur leere Zellen möglich sind; das machst Du einmal und brauchst nichts zu programmieren.
Ich habe mal ein bißchen recherchiert (link im Makro) und eine UDF gebastelt, die die Tage des Wochenendes ermittelt.
Was die UDF tut, siehst Du am Besten in "Sick".
Alles hat seine Vor- und Nachteile:
Wenn Du die Wochenenden leer läßt, werden eigentlich zusammenhängende Bereiche wochenweise gesplittet; mit der Berechnung der Wochenend-Tage werden bei Fehleingaben (nur ein Tag am Wochenende) eben mit 0 angezeigt.
Ansonsten sehe ich auf den ersten Blick keine andere Möglichkeit, als die Logik mit den Schleifen so kräftig aufzubohren, daß es fast weniger Arbeit ist, den Ansatz komplett zu überdenken.
Du wirst verstehen, daß ich jetzt nicht nochmal von vorne anfangen mag.
Übrigens: wenn man 3. und 4. zusammenfaßt, wäre auch denkbar, die Wochenenden (ähnlich wie die Feiertage) mit "weekend" vorzubelegen und schlicht in die Bedingung der ersten While mit aufzunehmen. Dann könntest Du diese Wochenend-Function wieder rausnehmen.
zu 5.: Wenn man das durchdenkt, läuft es darauf raus, daß Du eigentlich alles in Stunden rechnen mußt, denn ein Mitarbeiter kann nach 3 Stunden Arbeit heimgehen, weil er Kopfschmerzen hat, oder er nimmt einen halben Tag Urlaub.
Deine Kumulierung (Summe) der Stunden in Spalte M ist da wenig hilfreich; es gibt keine Spalte, aus der man die Stunden für die compensation direkt ablesen könnte: in I stehen die worked hours, aber mangels target time (die steht auf 0) läßt sich hier nicht errechnen, wieviele Stunden übernommen werden sollen. Man könnte natürlich immer mit 8 rechnen, aber wenn sich das auf 7:45 ändert, kannst Du das Makro wieder ändern- das finde ich ungünstig.
Besser wäre es, Zugriff auf eine Spalte zu haben, in der der Wert steht.
Dazu solltest Du die erste array-Zuweisung entsprechend ausdehnen, etwa bis Spalte V (oder wo immer Du den Wert platzieren willst):

a = TimeSh.Range("B" & von & ":V" & bis)

Das alles einzuzarbeiten würde wiederum einige Stunden kosten, die ich (unbezahlt) nicht investieren mag.
Zwei Lösungsansätze:
evtl. Pivot-Tabellen?
TimeSheet kopieren, den eigentlichen Datenbereich nochmal kopieren, dann Inhalte einfügen-Werte; dann nach Spalte H sortieren und Teilergebnisse ansehen. Ich wollte es austesten, nur funktionieren die TE nicht mit den verbundenen Zellen in der Überschrift: verb. Zellen sind der Feind des Programmierers.
Die Datei so weit: https://www.herber.de/bbs/user/101682.xlsm
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1					Startdatum	Enddatum
2	Fr	02.01.2015		Bereich 1	02.01.2015	08.01.2015
3	Sa	03.01.2015		Bereich 2	11.01.2015	13.01.2015
4	So	04.01.2015		Bereich 3	29.04.2015	06.05.2015
5	Mo	05.01.2015
6	Di	06.01.2015
7	Mi	07.01.2015
8	Do	08.01.2015
9	So	11.01.2015
10	Mo	12.01.2015
11	Di	13.01.2015
12	Mi	29.04.2015
13	Do	30.04.2015
14	Fr	01.05.2015
15	Sa	02.05.2015
16	So	03.05.2015
17	Mo	04.05.2015
18	Di	05.05.2015
19	Mi	06.05.2015
20

Startdatum und Enddatum eines Datumsbereichs

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread