VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Vereinfachte Zeiteingabe

Gruppe

DatumZeit

Bereich

Eingabe

Thema

Vereinfachte Zeiteingabe

Problem

Ich habe in eine Spalte eine große Anzahl von Uhrzeiten einzugeben. Hierbei hemmt die Eingabe des Doppelpunktes bei z.B. "12:15" den Eingabefluß. Wie kann ich die Eingabe vereinfachen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub InZeit()
   Dim rng As Range
   Dim sTxt As String
   For Each rng In Selection.Cells
      sTxt = rng.Value
      rng.NumberFormat = "hh:mm"
      rng.Value = TimeSerial(Left(sTxt, 2), Right(sTxt, 2), 0)
    Next rng
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Eingabe