Stunden in Zahl umwandeln

Forumthread: Stunden in Zahl umwandeln

24.11.2013 19:27:10

Annette

Hallo,
ich möchte mit Stundendurchschnitte ausrechnen. Die Zeiten liegen mir in dem Format TT.MM.JJJJ hh:mm vor, die Produktionsmenge in Ganzahlen.
Mein Script sieht so aus:

Option Explicit
Sub Test()
Dim Produktionsmenge, Durchschnitt As Integer
Dim Anfang, Ende, Zeit As Date
Anfang = Worksheets("Tabelle 1").Cells(1, 1)
Ende = Worksheets("Tabelle 1").Cells(1, 2)
Produktionsmenge = Worksheets("Tabelle 1").Cells(1, 3)
zeit = (CDate(Ende - Anfang)) * 24
Durchschnitt =Produktionsmenge / zeit
End Sub

In den Zellen steht: 20.11.2013 09:00 20.11.2013 10:30 600
Er bringt mir den Fehler Langzeitfehler 6 "Überlauf".
Wir muss ich die "Zeit" formatieren, dass 400 herauskommt?
Liebe Grüße
Annette

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Stunden in Zahl umwandeln

24.11.2013 19:47:50

ransi
AW: Stunden in Zahl umwandeln

24.11.2013 21:18:36

Annette
MsgBox Durchschnitt simmt doch = 400 ;-) oT

25.11.2013 05:27:49

Matthias
AW: Stunden in Zahl umwandeln

24.11.2013 21:51:57

ing.grohn

AW: Stunden in Zahl umwandeln

24.11.2013 19:47:50

ransi

Hallo Anette
ich weiß nicht was da klemmt.
Das funktioniert bei mir 1A.

Option Explicit
Sub Test()
    Dim Produktionsmenge, Durchschnitt As Integer
    Dim Anfang, Ende, Zeit As Date

    Anfang = Worksheets("Tabelle1").Cells(1, 1)
    Ende = Worksheets("Tabelle1").Cells(1, 2)
    Produktionsmenge = Worksheets("Tabelle1").Cells(1, 3)
    Zeit = (Ende - Anfang) * 24

    Durchschnitt = Produktionsmenge / Zeit
End Sub

ransi

AW: Stunden in Zahl umwandeln

24.11.2013 21:18:36

Annette

Hallo Ransi,
bei mir leider nicht. Welche Meldung kommt, wenn du "MsgBox Zeit" in das Scipt einfügst?
Bei mir erscheint "31.12.1899 12:00:00"
Danke
LG Annette

MsgBox Durchschnitt simmt doch = 400 ;-) oT

25.11.2013 05:27:49

Matthias

AW: Stunden in Zahl umwandeln

24.11.2013 21:51:57

ing.grohn

Hallo Annette,
probier mal:


Sub Testi78()
Dim Produktionsmenge, Durchschnitt As Integer
Dim Anfang As Date, Ende As Date
Dim Zeit As Double
Anfang = Worksheets("Tabelle1").Cells(1, 1)
Ende = Worksheets("Tabelle1").Cells(1, 2)
Produktionsmenge = Worksheets("Tabelle1").Cells(1, 3)
Zeit = (Ende - Anfang) * 24
Durchschnitt = Produktionsmenge / Zeit
MsgBox Anfang & vbCr & Ende & vbCr & Produktionsmenge & vbCr & Zeit & vbCr & Durchschnitt
End Sub

"Zeit" ist als Double zu dimensionieren, weil Zeiten im Bereich zwischen 0,00.. irgendwas und 1 angegeben werden.
Vielleicht hilfts
Mit freundlichen Grüßen
Albrecht

Beliebteste Forumthreads (12 Monate)

Forumthread: Stunden in Zahl umwandeln

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread