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 600Er bringt mir den Fehler Langzeitfehler 6 "Überlauf".
Wir muss ich die "Zeit" formatieren, dass 400 herauskommt?
Liebe Grüße
Annette