Gruppe
Format
Problem
Wie kann ich Excel dazu bewegen, eine Eingabe in Form von hhmmss als hh:mm:ss (Stunden:Minuten:Sekunden) zu erkennen?
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sTxt As String
If Target.Column <> 1 Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
sTxt = Target.Value
If sTxt Like "######" Then
Target.NumberFormat = "hh:mm:ss"
Target.Value = TimeSerial( _
Left(sTxt, 2), _
Mid(sTxt, 3, 2), _
Right(sTxt, 2))
Else
Target.NumberFormat = "General"
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub