Zahl nach Zeit formatieren
06.11.2002 21:57:15
Rolf St
In Spalte N3:N1000 möchte ich 7stellige Zahlen erfassen und die
dann nach Spalte D3:D1000 als Zeit übertragen.
Von 1234567 soll 1:23:45,67 werden. (h:mm:ss,00)
Option Explicit
Sub Kopieren()
Dim aBereich As Range, bBereich As Range
Set aBereich = Range("N3:N1000")
Set bBereich = Range("D3:D1000")
bBereich.Value = aBereich.Value
bBereich.NumberFormat = aBereich.NumberFormat
End Sub
' Range("D1:D1000").Select
' Selection.NumberFormat = "h:mm:ss,00"
Ist dieses möglich?
Vielen Dank für eure Hilfe!
Tschüß
Rolf