ABRUNDEN
05.02.2015 14:11:27
Wolfgang
komme wieder einmal nicht weiter.
Ich will in einer Tabelle Zeiten per VBA auf ¼ Stunden abrunden. Dazu hab ich folgenden Skript geschrieben:
Sub Abrunden()
Range("I3").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, -4) = "Kommen" Then
ActiveCell.Offset(0, 4) = Application.WorksheetFunction.Floor(ActiveCell.Offset(0, -5). _
Value, 0.10416666666666)
Else
ActiveCell.Offset(0, 4) = CDate(ActiveCell.Offset(0, -5))
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Leder kommen dabei falsche Zeiten heraus. Was ist falsch?Danke im Voraus.
Wolfgang
Aus dem Erzgebirge