Startzeit im Schichtplan errechnen

Hallo
ich habe die große Ehre unsere alten Schichtpläne auszuwerten und da diese
nach einem einfachen X X X Muster ohne irgendwelche Formeln gemacht wurden,
tue ich mir irgendwie schwer mit dem errechnen der Anfangs und Endzeit,
welches ich für ein besseres Model benötige.
Ich suche nach einer Lösung wonach ich in Spalte B die entsprechenden
Anfangs und Endzeiten erhalten, ohne jedesmal von Hand die Werte dort
eintragen zu müssen.
Problembeispiel:
A B C D E F G H I J K L
__________________________________________________________
Name 6 7 8 9 10 11 12 13 14 15 .. bis 22 Uhr
Müller ______________________x x x x x
Maier _________de x de F F x
Nixda ______ F F F F F F de X
__________________________________________________________
Hat jemand eine Idee ???????
Eine Beispieldatei findet Ihr unter
http://www.jadestadt.de/Exceltabs/Sample_Prob.xls
Sollte jemand interesse an einem flexiblen Rotationsschichtplan
für ca. 150 Mitarbeiter in Wechselschicht mit verschiedenen Gruppen
haben, kann er sich auch gerne melden :-)
tschau
-Jörg-

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ivan...
Vielen vielen Dank für Deine Mühe, aber das Problem das ich habe
beruht mehr darauf, das ich alte Excel Dateien habe, welche ich auswerten
soll und daher etwas ganz anderes benötige. Wie in meiner Beispiel
geschrieben .. und auch in dem File unter
http://www.jadestadt.de/Exceltabs/Sample_Prob.xls
am besten angucken :-))
Es handelt sich hier um einen alten Schichtplan. Die verschiedenen
Schichten wurden manuell eingetragen für eine Woche geplant. Ich
benötige für eine Historie der Schichten nun die alten Arbeitszeiten.
Natürlich kann ich für das ganze Jahr jeden Plan öffnen und für ca.
150 Mitarbeiter die Zeiten aufschreiben und umtragen.....
aber.. aber...
viel viel feiner wäre es wenn man die Start und Anfangszeiten aus
den Tabellen auslesen könnte. Leider bin ich nicht so fit in VBA,
aber vieleicht gibt es doch eine Lösung ohne das ich mich hier die
Finger wund schreibe.
Die Idee mit der tagesaktuellen Zeitmessung aus deiner Datei ist
nicht schlecht, und ich hab dafür auch für etwas anderes
Verwendung (DANKE !!) aber ist leider nicht nutzbar für das was
ich vorhabe.
tschau
-Jörg-

Sub Arbeitszeit() Dim Zeile% Dim Spalte% Dim LeereSpalte As Integer Dim Anfang As Variant Dim Ende As Variant For Zeile = 2 To Cells.SpecialCells(xlLastCell).Row LeereSpalte = 3 Spalte = 20 While Cells(Zeile, LeereSpalte) = "" LeereSpalte = LeereSpalte + 1 Wend Anfang = Cells(1, LeereSpalte) 'MsgBox (Format(Anfang, "00") & ":" & "00") While Cells(Zeile, Spalte) = "" Spalte = Spalte - 1 Wend Ende = Cells(1, Spalte) 'MsgBox (Format(Ende, "00") & ":" & "00") Cells(Zeile, 2) = Format(Anfang, "00") & ":" & "00" & "-" & Format(Ende, "00") & ":" & "00" Next Zeile End Sub

Beliebteste Forumthreads (12 Monate)

Startzeit im Schichtplan errechnen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread