von Zahl zu Zeit
09.11.2002 13:33:21
Rolf St
könnt ihr mir diese beiden Makro zusammenbauen?
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
Sub Change_Number_to_Time()
Dim myNewTime As Double
Dim myTime As Integer
Dim Target As Excel.Range
For Each Target In Selection
Target = myTime / (8640000)
Target.NumberFormat = "hh:mm:ss,00"
Next
End Sub
Vielen Dank für eure Hilfe!
Tschüß
Rolf
Anzeige