ich möchte Werte in einer Zelle automatisch aufteilen,
so dass ich zum Beispiel anstatt 12:00 nur noch 1200 eingeben muss.
(ich weis mach doch einfach den Doppelpunkt so)
Gibt es eine Funktion im Excel die das macht?
Danke
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:J10")) Is Nothing Then
If Target.CountLarge = 1 Then
If IsNumeric(Target.Value) Then
If IsDate(Format(Target.Value, "00:00")) Then
Application.EnableEvents = False
Target.Value = CDate(Format(Target.Value, "00:00"))
Application.EnableEvents = True
End If
End If
End If
End If
End Sub
in der ersten IF-Bedingung gibst du den Zellbereich an, für den diese Umwandlung ausgeführt werden soll.