Zeit ausrechnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ergänzung

04.10.2005 15:30:31

Darren

problem A

04.10.2005 15:38:17

harry

AW: problem A

04.10.2005 15:51:34

Darren

AW: problem A

04.10.2005 16:03:43

Darren

harry

04.10.2005 16:18:07

Darren

AW: Zeit ausrechnen

04.10.2005 15:39:42

Angel

AW: Zeit ausrechnen

04.10.2005 16:27:09

Darren

AW: Zeit ausrechnen

04.10.2005 19:00:21

Peter

AW: Zeit ausrechnen

05.10.2005 08:34:53

Darren

AW: Zeit ausrechnen

05.10.2005 08:55:34

Darren

mein letzter Beitrag zum Thema....

05.10.2005 22:59:17

Peter

AW: Zeit ausrechnen

05.10.2005 22:26:21

Aton

AW: Zeit ausrechnen Datum+Zeit

06.10.2005 23:49:24

Aton

Servus,
primär ist zu sagen, das dein Feedback nicht sonderlich hilfreich ist. Ein vernünftiges Feedback sagt was nicht passt.
Da deine Fragestellung auch nicht besonders präzise ist, währe Punkt 1 richtig ausgeführt, um so wichtiger.
Nun als mein Versuch, des ganzen, Tabellenaufbau.

Tabelle1

	A	B
1	01.10.2005	02.10.2005
2	09:00	23:00

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Und folgendes Makro.
Sub t() Dim datStart As Date, datEnde As Date, datTime1 As Date, datTime2 As Date Dim dblTage As Double, dblZeit As Double With Sheets("Tabelle1") datStart = .Range("A1") datTime1 = TimeSerial(Hour(.Range("A2")), Minute(.Range("A2")), Second(.Range("A2"))) datEnde = .Range("B1") datTime2 = TimeSerial(Hour(.Range("B2")), Minute(.Range("B2")), Second(.Range("B2"))) End With dblTage = (datEnde - datStart) * 24 dblZeit = (datTime2 - datTime1) * 24 MsgBox "Gesamtdauer " & dblTage + dblZeit & " Stunden" MsgBox "Anzahl der verbrauchten Schichten: " & (dblTage + dblZeit) / 8 End Sub
Generel bleibt zu bemerken, das dies mit xls Boardmitteln wesentlich leichter zu lößen wäre.
MfG Peter

Servus,
... da sich mir ehrlich gesagt der Sinn des ganzen nicht erschliest, der ganze unten folgende Code wäre mit nachfolgendem Tabellenaufbau sinnlos und damit deutlich einfacher zu händeln.

Tabelle1

	A	B	C
1	01.10.2005	02.10.2005	38
2	09:00	23:00
3	09 - 14 Uhr = 5 Stunden der Frühschicht	5,00
4	14 - 22 Uhr = 8 Stunden der Spätschicht	8,00

Formeln der Tabelle

C1 : =((B1-A1)*24)+((B2-A2)*24)
B3 : =14-(A2*24)
B4 : =WENN($C$1-SUMME($B$3:B3)<=0;0;WENN($C$1-SUMME($B$3:B3)>8;8;$C$1-SUMME($B$3:B3)))

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Sub t()
Dim datStart As Date, datEnde As Date, datTime1 As Date, datTime2 As Date
Dim dblTage As Double, dblZeit As Double, dblGesamt As Double, dblRest As Double, dblAnzeige As Double
Dim intZähler As Integer, intTag As Integer
    With Sheets("Tabelle1")
        datStart = .Range("A1")
        datTime1 = TimeSerial(Hour(.Range("A2")), Minute(.Range("A2")), Second(.Range("A2")))
        datEnde = .Range("B1")
        datTime2 = TimeSerial(Hour(.Range("B2")), Minute(.Range("B2")), Second(.Range("B2")))
     End With
     dblTage = (datEnde - datStart) * 24
     dblZeit = (datTime2 - datTime1) * 24
     dblGesamt = dblTage + dblZeit
     dblRest = dblGesamt
     dblAnzeige = 14 - (datTime1 * 24)
     intZähler = 1
     intTag = 1
Do
    If dblRest <= 0 Then Exit Do
        MsgBox "Tag " & intTag & " / Schicht " & intZähler & " / " & dblAnzeige & " Stunden"
        dblRest = dblRest - dblAnzeige
        If dblRest > 8 Then
        dblAnzeige = 8
        Else
        dblAnzeige = dblRest
        End If
        intZähler = intZähler + 1
        If intZähler > 3 Then
        intTag = intTag + 1
        intZähler = 1
        End If
Loop
End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread