Danke, Jo
A | B | C | D | E | |
1 | Quelle (Text) | ungerundet zu Zahl | Rundung Minuten | Abrundung Minuten | Formate |
2 | 14:44:37 | 14:44:37 | 14:45:00 | 14:44:00 | hh:mm:ss |
3 | 14:44 | 14:45 | 14:44 | hh:mm | |
4 | 0,61431713 | 0,614583333 | 0,613888889 | Standardformat |
Formeln der Tabelle | ||||||||||||||||||||
|
Option Explicit
Sub hhmm() ' 'Uhrzeit'-Texte im Format hh:mm:ss oder h:mm:ss,0 oder ...in Spalte A
Dim rngC As Range
Columns(1).NumberFormat = "hh:mm;@"
For Each rngC In Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1)
rngC = TimeValue(Left$(rngC, InStrRev(rngC, ":") - 1))
Next rngC
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort