Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Stunden in Zahl umwandeln

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
Anzeige
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

Anzeige
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
Anzeige

387 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige