Laufzeitfehler 6: Überlauf
31.03.2014 21:25:22
sachse1312
Für ein Programm muss ich berechnen wie oft eine Schleife durchlaufen werden soll. Die Anzahl ergibt sich aus einer Berechnung von Werten die aus dem Excelsheet ausgelesen werden, wodurch auch die Nutzung der "MOD" Operation nötig ist. Und hier liegt jetzt meine Problem. Bei einem Startwert "dZeit" Ich hoffe hier kann mir geholfen werden. Danke schonmal im vorraus.
Sub Schleifenanzahl()
dateiname = ActiveWorkbook.Name
Dim ddeltaT As Double
Dim dZeit As Double
Dim iFrequenz As Integer
Dim dSchleifen_voll As Double
Dim dSchleifen_rest As Double
Dim dSekunden As Double
Dim dSchritte As Double
ddeltaT = Workbooks(dateiname).Worksheets("Main").Cells(18, 3) '=0,001
dZeit = Workbooks(dateiname).Worksheets("Main").Cells(19, 3) '=25
iFrequenz = Workbooks(dateiname).Worksheets("Main").Cells(20, 3)
dSekunden = dZeit * 24 * 3600
If ddeltaT = 25 der Fehler auf
Workbooks(dateiname).Worksheets("Main").Cells(18, 9) = dSchleifen_voll
Workbooks(dateiname).Worksheets("Main").Cells(19, 9) = dSchleifen_rest
End Sub
Anzeige