Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ABRUNDEN

ABRUNDEN
05.02.2015 14:11:27
Wolfgang
Hallo alle gemeinsam,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ABRUNDEN
05.02.2015 15:44:09
Rudi
Hallo,
Was ist falsch?
0.10416666666 ist falsch.
0.010416666 oder besser 1/96
Gruß
Rudi

AW: ABRUNDEN
05.02.2015 18:45:36
Wolfgang
Hallo Rudi,
ich danke Dir. manchmal wird man Betriebsblind
Wolfgang
Aus dem Erzgebirge

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige