Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheetfunction

Worksheetfunction
26.12.2003 07:50:54
Michael
Hallo,
lese mittels VBA eine Uhrzeit aus einer Zelle in eine Variable ein. Dies klappt
soweit. Nun möchte ich aber diese Uhrzeit zum bsp. 10:05 zur nächsten Viertelstunde aufgerundet haben (10:15).
Ich habe es mit dem Ansatz:
i = Format(Time, "hh:mm")
i = WorksheetFunction.RoundUp(Range("d5").Value * 96 / 96, 0) probiert.
Hier bleibt die Uhrzeit aber 10:05.

Wäre nett wenn mir jemand unter die Arme greifen könnte.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheetfunction
26.12.2003 08:01:11
andre
hallo michael,
im prinzip so:
=ABRUNDEN((MINUTE(D5)+14)/15;0)*15
musst es noch un nach vba umsetzen
gruss andre
Ich brauche es in VBA
26.12.2003 08:21:13
Michael
Danke für Deine schnelle Antwort.
Der Haken ist das ich es nicht in VBA umsetzen kann.

Gruß Michael
AW: Ich brauche es in VBA
26.12.2003 09:33:55
Josef Ehrensberger
Hallo Michael,

so gehts.

i = Format(WorksheetFunction.RoundUp([D5] * 96, 0) / 96, "hh:mm")

Gruß Sepp
AW: Tausend Dank Josef läuft prima !!
26.12.2003 09:44:05
Michael
Danke für die Rückmeldung (o.T.)
26.12.2003 09:45:58
Josef Ehrensberger
/
AW: Ich brauche es in VBA
26.12.2003 14:23:49
andre
hallo michael,
der vollständigkeit halber - ist bischen länger, geht aber auch
i = Hour([d5]) & ":" & WorksheetFunction.RoundDown((Minute([d5].Value) + 14) / 15, 0) * 15
gruss andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige