VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eingabeerleichterung bei Zeitformaten

Gruppe

Format

Bereich

DatumUndZeit

Thema

Eingabeerleichterung bei Zeitformaten

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

    


Beiträge aus dem Excel-Forum zu den Themen Format und DatumUndZeit