Ich bin gerne bequem ;-)

28/02/2011 - 09:30 von Felix Hensler | Report spam
Hallo und guten Tag,

ich möchte gerne in B1 (Excel) eingeben: 1045
in E1 soll erscheinen: 10:45 (Uhrzeit)

Wie kann ich das erreichen?

Herzlichen Dank für die Hilfe.

Liebe Grüße
Felix Hensler
 

Lesen sie die antworten

#1 Andreas Killer
28/02/2011 - 16:29 | Warnen spam
Am 28.02.2011 09:30, schrieb Felix Hensler:
ich möchte gerne in B1 (Excel) eingeben: 1045
in E1 soll erscheinen: 10:45 (Uhrzeit)

Wie kann ich das erreichen?


Vielleicht durch eine Formel?

Wenn man 1045 durch 100 teilt ergibt das 10 Stunden und einen Rest, diesen teilen wir durch 60 und erhalten anteilige
Stunden und für Excel teilen wir alles nochmals durch 24 für anteilige Tage.

=(KÜRZEN(B1/100)+REST(B1;100)/60)/24

Wenn man jedoch ein Makro, genauer das WorkSheet_Change Ereignis, zu Hilfe nimmt, dann kann man auch eine Gleitkommazahl
oder eine richtige Uhrzeit in die Zellen eingeben und diese ggf. umrechnen lassen.

Also 10,45 wird zu 10:45 direkt nach der Eingabe.

Andreas.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range

Set R = Intersect(Target, Range("B1,E1"))
If Not R Is Nothing Then
Application.EnableEvents = False
On Error Resume Next
For Each R In R
If IsNumeric(R) And R >= 1 Then
'5,3 zu 05:30:00
R = CDate(Replace(Format(R, "0.00"), ",", ":"))
End If
Next
Application.EnableEvents = True
End If
End Sub

Ähnliche fragen