wie ist es möglich eine eingegebene Zahl im Stunden/Minuten Format z.B. 71 Stunden 30 Minuten in eine Dezimalzahl 71,5 in derselben Zelle auszugeben?
Danke für eine Antwort
annette
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngEingabe As Range
Set rngEingabe = Range("B2:B20")
If Not Application.Intersect(Target, rngEingabe) Is Nothing _
And Target.Cells.Count = 1 Then
Application.EnableEvents = False
Target.Value = Target.Value * 24
Target.NumberFormat = "#0.00"
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: unbekannt
Application.EnableEvents = False
Target.Value = Target.Value * 24
Target.NumberFormat = "General"
Application.EnableEvents = True
End Sub