Eingabe Uhrzeit

Computer: Software & Programmierung Office Software
1

Hilfe … wie kann ich ein automatisches Format hinterlegen, dass die Eingabe der Zahlen gleich als Uhrzeit dargestellt werden. Also ich meine, ich gebe ein 115 und dargestellt wird’s als 1:15. Ich habe jetzt die Zelle als hh:mm formatiert, aber es ist ziemlich umständlich wenn ich bei der eingabe immer : eingeben muss …
versteht man was ich meine? Danke! Daniela

2

Mit diesen Makros klappt’s

Sub auto_open()

Application.OnEntry = „Eingabe“

End Sub

Sub auto_close()

Application.OnEntry = „“

End Sub

’ Formatiert die Eingabe in das Format [h]:mm um:

Sub Eingabe()
Dim AC As Range
Dim h%, M%, s%
Set AC = Application.Caller
s = 0
l = Len(AC.Value)

If l = 1 Then
h = 0
M = Right(AC, 1)

ElseIf l = 2 Then
h = 0
M = Right(AC, 2)

ElseIf l = 3 Then
h = Left(AC, 1)
M = Right(AC, 2)

ElseIf l = 4 Then
h = Left(AC, 2)
M = Right(AC, 2)

ElseIf l > 4 Then
msgbox „Ungültiger Wert“, vbOKOnly

End If

AC.NumberFormat = „[h]:mm“
AC = TimeSerial(h, M, s)

Exit Sub

End Sub

Gruß

Steffen

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Einen kleinen Workaround gibts da schon…
Hat aber auch nen Nachteil…
Wenn Du die Zellen als benutzerdefiniert einträgst und in dem vorgesehenen Feld das so eingibst:
#":"##
werden die letzten 2 Stellen immer hinter dem : geschrieben und alles davor eben auch davor…

der Nachteil:
Es ist keine Uhrzeitformatierung…
Wenn Du nun damit berechnungen anstellst, dann kann da zum Beispiel 1:70 stehen, was Uhrzeittechnisch keinen Sinn macht…
Hoffe, dass Dir das hilft

4

Danke für Eure Mühe - damit bin ich überfordert, bin halt eher ne Büromaus als ein Excel Profi … ich tipp’ lieber das : ein … DANKE trotzdem Daniela

5

Danke für Eure Mühe - damit bin ich überfordert, bin halt eher
ne Büromaus als ein Excel Profi … ich tipp’ lieber das : ein
… DANKE trotzdem Daniela

Ha jetzedle aber … :smile:)

Einmal in Excel rüberkopiert und schon klappt’s

So wird’s gemacht:

-Excel-Mappe öffnen
-Visual Basic über Alt+F11 öffnen
-Menü Einfügen/Modul
-Meine Makros am Stück rüberkopieren (hier markieren, strg+c -> im VBA-Modul strg+v)

  • speichern, VBA schließen, fertig

Steffen