Office: (Office 365) Uhrzeit automatisch Doppelpunkt setzen

Hallo zusammen.

Wollte fragen ob mir jemand helfen kann, wenn ich im

B1 = 7.30 schreibe das es automatisch auf 07:30 macht oder
8.00 auf 8:30, oder 12.15 auf 12:15. gibt es da eine möglichkeit dies automatisch zu machen VBA.

Danke Danke im voraus

 

Trage bei Autokorrektut ein

,, ersetzen durch :

Autokorrektur unten Daten, Optionen, Dolumentenprüfung



https://hajo-excel.de/gepackt/vba/uhrzeit_eingabe.zip

 

Moin Nazif,
formatiere die Spalte mit den Uhrzeiten als Text und kopiere folgendes Mini-Makro in das Arbeitsblatt (rechte Maustaste auf den Tab Tabellennamen > Code anzeigen > Code ins große Fenster kopieren und den VBEditor per X oben rechts wieder schließen.) Deine Eingaben kannst Du dann mit vier Ziffern erledigen und mit der rechten Maustaste ins gewünschte Format umwandeln. Die Zelle wird als Zeit formatiert und Du kannst anschließend damit entsprechend rechnen.

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
    Target = Left(Target.Text, 2) & ":" & Right(Target.Text, 2)
    Target.NumberFormat = "hh:mm"
End Sub

Im Moment wird der Code per Rechtsklick in die Zelle ausgelöst. Es sind aber auch bequemere Auslöser wie SelectionChange oder einfach eine F-Taste möglich.

Schöne Grüße

 

Noch eine Möglichkeit: Du erfasst Deine Zeiten (und alles andere auch) über eine Userform. TextBoxen kennen -anders als Zellen- den Exit-Event. Wenn Du die TBX verlässt, kann geprüft werden: alles Ziffern? nicht mehr als vier Stellen? Zahlen im zulässigen Bereich?

Dann kann selbst die Eingabe nur einer einzelnen Ziffer in das richtige Format umgewandelt werden: aus 7 wird 00:07, aus 35 -> 00:35 und aus 943 -> 09:43. Bei völlig falschen Werten wie 2501 oder 965 kommt eine Fehlermeldung.

Und noch 'n Trick: Wenn es jeweils um die aktuelle Zeit geht, kannst Du die einfach mit Strg+Doppelpunkt in eine Zelle einfügen.

Schöne Grüße

 

Hallo,
ins Modul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Len(Target) = 4 Then
        Target = Left(Target, 2) & ":" & Right(Target, 2)
    End If
    If Len(Target) = 3 Then
        Target = Left(Target, 1) & ":" & Right(Target, 2)
    End If
    Application.EnableEvents = True
End Sub

Beispiel für den Bereich Zellen A1 bis B500:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1:B500")) Is Nothing Then
        If Len(Target) = 4 Then
            Target = Left(Target, 2) & ":" & Right(Target, 2)
        End If
        If Len(Target) = 3 Then
            Target = Left(Target, 1) & ":" & Right(Target, 2)
        End If
    End If
    Application.EnableEvents = True
End Sub

Anwendung:
Eingabe nur noch Ziffern 3 bis 4-stellig (755 -->7:55 o. 1415 --> 14:15).

Bei Eingabe mit Punkt erkennt Excel als Datum.
Fall dieses versehentlich passiert gibst du in die Zelle 955 o.ä. ein.
Dann wird die Zelle wieder auf Zeit formatiert.

Gruß Uwe