Habe folgenden Code im Forum gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C5")) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value * 24
Target.NumberFormat = "General"
Application.EnableEvents = True
End If
End Sub
Wer könnte mir diesen Code so ändern,das der Bereich auch Gerundet wird?
Bisher habe ich es über eine Extra Spalte mit dieser Formel erledigt.
RUNDEN(F2*24*20;0)/20
Danke
Jochen