Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingabeerleichterung bei Zeitformaten

Gruppe

DatumUndZeit

Problem

Wie kann ich Excel dazu bewegen, eine Eingabe in Form von hhmmss als hh:mm:ss (Stunden:Minuten:Sekunden) zu erkennen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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