Vollständigkeitsauswertung Zeitprotokoll

Hallo liebe Community,
hoffe jemand kann mir mit meinem folgenden Problem helfen.
Und zwar habe ich um diverse Statistiken zu decken eine Notlösung schaffen müssen bis mir eine EDV Lösung vorliegt. (Juli ist es soweit, kann aber leider so lange nicht warten)
Dazu schreiben alle Mitarbeiter einen Tageszettel ihrer durchgeführten Tätigkeiten und wie lange sie dies getan haben.
Eine Kollegin muss nun diese Daten in meine Statistische Notlösung migrieren, sprich digitalisieren. Umständlich aber nötig, besserung ist ja in Sicht.
Um dieser Kollegin die Arbeit zu erleichtern habe ich ein kleines Tool erstellt welches die Daten bestmöglich umwandelt, siehe File: Userbild

Hier wird nicht anderes gemacht als die geschriebenen Zeiten ( Format: 7:00 - 7:20 ) einzutragen damit das Tool diese Werte in eine Stundenwertung errechnet.
Dies funktioniert auch bestens.
Das Problem besteht darin das eine falsche Eingabe oder genauso falsch im Original Zettel aufgeschriebene Zeiten dazu führen das am Ende ggf. nicht die Sollstunden von 7,75 errechnet werden können.
Um das zu verhindern brauche ich eine Abfrage welche prüft ob eine im Sollfenster (noch nicht im Pic vorhanden)eingetragenene Arbeitszeit (7:00 - 15:30 )voll abgedeckt ist oder Lücken bzw. Überschneidungen eingetragen worden sind.
Bsp.1
Sollzeit Anfang: 7:00 Sollzeit Ende: 15:30
Tätigkeit 1: 7:00 - 14:45 ; 14:45 - 15:30
also alles ok, keine Meldung!
Bsp.2
Sollzeit Anfang: 7:00 Sollzeit Ende: 15:30
Tätigkeit 1: 7:00 - 13:00 ; 13:10 - 14:45 ; 13:45 - 15:30
Hier muss von Excel alamiert werden das
a) die Zeit von 13:00 - 13:10 nicht abgedeckt ist und
b) die Zeit von 13:45 - 14:45 Überschneidungen aufweist.
Farbliche Markierte Problempunkte wären schon ausreichend, da die Tätigkeiten teils bis zu 30 mal wechseln ist ein Fehler = der Suche der Nadel im Heuhaufen.
Hoffe ich konnte euch das Problem verständlich genug schildern.
Ist das sowas machbar?
Danke für eure Mühen vorab.
VG
Tomek

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then Target.Interior. _ Color = RGB(255, 0, 0) If Target.Column Mod 2 = 0 And Target > Cells(Target.Row, Target.Column - 1) Then _ Target.Interior.Color = RGB(255, 0, 255) End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row 1 Then Exit Sub If Cells(Target.Row, Target.Column - 1) = 0 Then _ Cells(Target.Row, Target.Column) = 0 If Cells(Target.Row, Target.Column - 1) > 0 And Target = 1 Or Target = 0 Then Target.Interior.Color = RGB(0, 255, 255) If Target.Column Mod 2 = 0 And Target Cells(Target.Row, Target.Column - 1) _ Then Target.Interior.Color = RGB(255, 0, 255) End Sub

Hallo Werni,
das sieht schon spitze aus, bis hierhin schon mal vielen Dank für die Mühe.
Das Modul an der richtigen Stelle bewirkt auch Wunder :)
Allerdings gibt es leider weiterhin ein Problem.
Und zwar ist der springende Punkt das die Tätigkeiten am Tag bis zu max. 30mal wechseln können.
Also eine Berechnung in der Tabelle vor "Reset" = 1 Mitarbeiter.
Der Code funktioniert nur mit einer Tätigkeit, nutze ich eine 2te markiert er nicht wie gewünscht.
Bsp.:
Anfang - Ende
Laden: 7:00 - 7:15
Lager: 7:15 - 9:15
Im Anschluss könnte also z.b. eine weitere Tätigkeit einer anderen Spalte an der Reihe sein oder eine bereits im Vorfeld genutzte in 2ter Instanz.
Wünschenswert wäre dafür auch, wenn möglich, das die Prüfung über eine Schaltfläche manuell angestoßen werden muss da beim eintragen es schneller geht die Zeitwerte Tätigkeit für Tätigkeit (also Spalte für Spalte) einzutragen ohne hier bereits aufpassen zu müssen.
Mache ich mit dem aktuellen Code Fehler (welcher ja kommen würde wenn ich zunächst nur eine Spalte fülle in welcher natürlich noch keine passenden Zeiten vorhanden sind) ist die Zelle blockiert und ich kann sie nicht neu füllen.
Das ganze müsste also nach meinem Verständnis nach anstoßen einer Prüfung über eine Schaltfläche grob nach dem Prinzip von SVERWEIS die komplette Range Schritt für Schritt nach Anfang und dann Endduplikat durchsuchen und dabei noch Überschneidungen finden.
Ist das überhaupt möglich?
Kommt mir als VBA Anfänger förmlich zu komplex vor.
Gruss
Tomek

Beliebteste Forumthreads (12 Monate)

Vollständigkeitsauswertung Zeitprotokoll

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread