Vergleich von Terminen

Hallo an alle,
Ich habe ein Problem bezüglich der Rechenperformance meiner VBA-Berechnung in Excel
Es geht dabei um die Verteilung von Stunden zwischen einem Start- und einem Endtermin.
Da ich relativ viele Daten habe und der folgende Code oft durchlaufen werden muss, wollte ich mal fragen ob ihr Ideen habt den Code effizienter zu machen sodass die Rechendauer eingeschränkt werden kann.
Ich denke es ist sehr aufwendig das jeder Tag(aktuellesDatum) des Jahres mit dem Start und Endtermin verglichen wird, aber mir fällt leider noch nichts besseres ein.
Ich hatte überlegt erst die entsprechenden Monate zu selektieren über "Month(Datum)", aber da bin ich noch nicht weitergekommen.
Ich hoffe mir kann hier jemand helfen und bin dankbar über jede Idee
Gruß
Code:


Sub Stundeberechnung()
'Gesamtstundenzahl der einzelenen Bereiche
weeks = ws4.Cells(4, "C")
'wda = 7 * weeks
x = 0
iEnd = rowstart(0) + 5
For row = rowstart(0) + 1 To iEnd
'wda = ws4.Cells(row, 12).Value - 1
'zur Verfügung stehende Stunden je Terminblock
ABChoursamount = 0
ABChoursamount = wsk.Cells(row, "V").Value
DEFhoursamount = 0
DEFhoursamount = wsk.Cells(row, "W").Value
'Für die Bewältigung verfügbare Tage
ABCdays = wsk.Cells(row, "H")
DEFdays = wsk.Cells(row, "K")
'Start- und Endtermine
ABCDateS = wsk.Cells(row, "F").Value        'Startdatum ABC
ABCDateE = wsk.Cells(row, "G").Value        'Enddatum ABC
DEFDateS = wsk.Cells(row, "I").Value        'Startdatum DEF
DEFDateE = wsk.Cells(row, "J").Value        'Enddatum DEF
For col = 0 To 365 '+ 365
aktuellesDatum(col) = wsk.Cells(2, col + 33).Value
Next col
For col = 0 To 365
dayhours(row - rowstart(0), col) = 0
'Daten-Vergleich Jedes Datum jedes Tages wird mit dem der vorgegebenen Termine verglichen
''Beschreiben der ABC Daten wenn Datum im ABC Zeitraum (linear)
If aktuellesDatum(col) >= ABCDateS And aktuellesDatum(col) = DEFDateS And aktuellesDatum(col)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Eike,
... zuerst an mir, weil ich aus Eike Elke gemacht hatte - sorry!
Es gibt einige Punkte, die Dich nicht glücklich machen werden, völlig unabhängig von der Performance:
1. Datumsdifferenzen: aus A5: 01.01.2016 und B5: 10.01.2016 berechnest Du in C5 schlicht =B5-A5=9
Hier mußt Du Dir vorstellen, daß diese Berechnung von zwei GLEICHEN UHRZEITEN der beiden Tage ausgeht: von (z.B.) 1.1. 0:00 bis 10.01. 0:00 sind es tatsächlich nur 9 Tage, wobei hier keine einzige Minute des 10.1. "vorhanden" ist.
Datumsdifferenzen, die sowohl den 1. als auch den letzten Tag des Zeitraums einschließen sollen, muß man also immer mit + 1 berechnen, also = B5-A5 +1 = 10, das bedeutet dann 1.1. 0:00 bis 10.1. 24:00
2. Ihr arbeitet offensichtlich nicht an Wochenenden, woraus ich mal frech schließe, daß Ihr auch an Feiertagen nicht arbeitet: der 1.1. IST ein Feiertag!
3. Deine Art, Sa/So herauszurechnen, führt dazu, daß nicht die komplette Zeit (aus G5/H5) berücksichtigt wird. G5 ist 3,22, und in den Spalten 1.1. bis 10.1. stehen nur 2,1566667, weil die "Wochenendlöcher" nicht aufgefüllt werden.
Abhilfe wäre, eine "bessere" Formel in C5 bzw. F5 einzusetzen, die Wochenenden und (wenn man schon dabei ist) Feiertage rausrechnet - oder zusätzlich je eine Hilfsspalte.
Dann muß G5 nicht durch die kalendarische Anzahl der Tage, sondern durch die ARBEITStage in dem Zeitraum geteilt werden...
Ohne den 1.1. wären das dann 4 (die Hl. 3 Kieni gibt's ja auch noch), also pro ARBEITStag 3,22:4=0,805
4. Das ist nur ein Tippfehler im Makro, aber womöglich folgenschwer:

'        DEFDateE = ws1.Cells(row, "F").Value        'Enddatum DEF
DEFDateE = ws1.Cells(row, "E").Value        'Enddatum DEF *****
'                                 ***

Ich bau Dir mal was ein und melde mich nachher noch mal,
Michael

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread