Office: (Office 2010) Datum/Zeit ohne punkt eingeben

alden123 · 27. Oktober 2014

hallo,
ich suche eine vba lösung, die es mir erlaubt, datum (A10:A1000;
C10: C1000) ohne punkt einzugeben und für die Zeit (B10:B1000;
D10*biggrin.gif*1000)ohne doppelpunkt einzugeben.
datum und zeit werden zur weiteren berechnung benötigt.
ich selber habe so gut wie keine ahnung was vba betrifft.
vielleicht kann mir einer helfen
vielen dank im voraus

alden123

:)

GMG-CC · 28. Oktober 2014

Moin,

falls du nur auf der Zehnertatatur bleiben willst:
29-10-14 geht
unf für die Uhrzeit nimmst du die Autokorrektur und lässt ,, (2 Kommas) durch den : ersetzen.

Ach ja, und Mr. Goo hat mir eben 2980 Ergebnisse fr eine VBA-LÖszng bezüglich des Datums ausgegeben.

aloys78 · 28. Oktober 2014

Hallo alden,

für die Eingabe der Uhrzeit schlage ich nachfolgende VBA-Lösung vor:
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zBer As Variant
Dim rng As Range
If Target.Count > 1 Then Exit Sub 'mehr als 1 Zelle ausgewählt
Set rng = Union(Range("B10:B1000"), Range("D10:D1000")) 'Eingabebereich für Uhrzeit
If Intersect(Target, rng) Is Nothing Then Exit Sub 'Eingabezelle nicht im gewünschten Bereich

zBer = Target.Value2 'Zahlenwert
If zBer = "" Then Exit Sub 'Target ist leer
If Not (IsNumeric(zBer) Or IsDate(zBer)) Then Exit Sub 'Target ist keine Zahl oder enthält Datum
zBer = String(4 - Len(zBer), "0") & zBer 'kürzere Eingaben auffüllen
zBer = TimeSerial(Left$(zBer, Len(zBer) - 2), Right(zBer, 2), 0) 'umwandeln in Zeit
Application.EnableEvents = False 'keine weiteren Ereignisse zulassen
Target.Value = zBer 'Eingabezelle ersetzen
Target.NumberFormat = "hh:mm" 'Eingabezelle formatieren
Application.EnableEvents = True 'Ereignisse wieder zulassen
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG
Aloys

Hajo_Zi · 28. Oktober 2014

die für mich einfachste Art zur Zeiteingabe ist.
Stelle bei Autokorrektur ein Ersetzen ,, durch : dann kannst Du Zeiten recht schnell mit der Num-Lock-Tastatur eingeben.

Office: (Office 2010) Datum/Zeit ohne punkt eingeben

Datum/Zeit ohne punkt eingeben

Datum/Zeit ohne punkt eingeben

Datum/Zeit ohne punkt eingeben

Datum/Zeit ohne punkt eingeben - Similar Threads - Datum Zeit punkt

Zeit Berechnung mit mehreren kriterien (Datum/Uhrzeit)

Datum und Zeit aus einer Zelle extrahieren

Sollarbeitszeit mit SVERWEIS

DLookup (Datum) bei Datum-Zeit

Diagramm Datum/Zeit

Mittelwert abhängig des Datums bilden

Zeitüberschneidungen verschiedener Tage automatisch erkennen