Macro von WernerB.
28.04.2006 20:26:00
WernerB.
habe hier ein ganz hervoragendes Macro von WernerB. gefunden
und müßte es noch mit einer formel erweitern. Ist das möglich und wenn ja wie ?
Dim c As Range
Dim dd As Date
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A1:A" & laR)
dd = CDate(c.Text)
c.ClearContents
c.NumberFormat = "hh:mm"
c.Value = dd
Next c
Application.ScreenUpdating = True
End Sub
Die jeweils geänderte Zelle sollte noch gerundet werden
zb. =Runden(A1*96)/96
Die Formel rundet die Zeit immmer auf eine viertelstunde ab oder auf.
Für Hilfe wäre ich dankbar
Gruß Frank