Win7, Office2010
Hallo.
Die Eingabe von Zeiten, Datum und Betrag ist sehr unkomfortabel. Wer kennt einige Tricks?
Danke im Voraus
Jochen
Den Ziffernblock benutzen …
… und das Zellenformat passend einstellen.
unkomfortabel.
WAS genau ist unkomfortabel daran?
*kopfschüttel*
Grüezi Jochen
Die Eingabe von Zeiten, Datum und Betrag ist sehr
unkomfortabel. Wer kennt einige Tricks?
Datum:
Immer den Ziffernblock verwenden und den Slash ‚/‘ oder das Minus ‚-‘ zur Trennung von Tag/Monat/Jahr.
Folgende Eingaben sind äquivalent:
2.2.12
2-2-12
2/2/12
Uhrzeiten:
Am effizientesten hat sich folgendes erwiesen:
Einrichten einer Autokorrektur die 2xKomma ‚,‘ durch 1xDoppelpounkt ‚:‘ ersetzt.
Folgende Eingaben sind dann äquivalent:
14:15:30
14,15,30 (wird automatisch zu 14:15:30)
Hilft dir das schon weiter?
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
Hallo Jochen.
Die Eingabe von Zeiten, Datum und Betrag ist sehr
unkomfortabel. Wer kennt einige Tricks?
Für das aktuelle Datum kannst Du die Tastenkombination STRG+Punkt verwenden.
Für die aktuelle Zeit kannst Du die Tastenkombination STRG+SHIFT+Punkt verwenden.
Um bei einer Zeit-Eingabe auf den Doppelpunkt zu verzichten, könnte eventuell der folgende VBA-Code für Dich interessant sein:
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim NewValue As Integer
Dim hh As Integer
Dim mm As Integer
On Error GoTo ErrHandler
If Target.Rows.Count 1 Then Exit Sub
If Target.Columns.Count 1 Then Exit Sub
Select Case Target.Column
Case 1 '1 = Spalte A, 2 = Spalte B usw., Bitte anpassen
Application.EnableEvents = False
NewValue = CInt(Target.Value) \* 1
If NewValue 2400 Then GoTo OutOfRange
If ((Int(NewValue / 10)) Mod 10) \> 5 Then GoTo OutOfRange
mm = (((Int(NewValue / 10)) Mod 10) \* 10) + ((Int(NewValue / 1)) Mod 10)
hh = (((Int(NewValue / 1000)) Mod 10) \* 10) + ((Int(NewValue / 100)) Mod 10)
Target = FormatDateTime(TimeSerial(hh, mm, 0), vbShortTime)
End Select
Finally:
Application.EnableEvents = True
Exit Sub
OutOfRange:
Target.Select
MsgBox "Ihre Eingabe konnte nicht als Zeit-Angabe interpretiert werden.", vbOKOnly + vbCritical
GoTo Finally
ErrHandler:
Target.Select
MsgBox "Ihre Eingabe konnte nicht als Zeit-Angabe interpretiert werden.", vbOKOnly + vbCritical
Resume Finally
End Sub
Du könntest damit eine Zeit quasi im militärischen Stil eingeben („Antreten um NULL-SECHSHUNDERT“), wobei wahlweise die führende Null auch weggelassen werden kann. Wenn Du Lust hast, kannst Du das ja 'mal ausprobieren. Im obigen Code bin ich davon ausgegangen, dass die Zeit in Spalte A eingegeben wird. Das müsstest Du ggf. anpassen.
VG
Carsten
Hallo,
ich habe in der Autokorrektur folgendes stehen:
, ersetze durch :
Dann geht alles auf der Zehner-Tastatur:
Eine Uhrzeit dann mit doppeltem Komma eingeben:
12,30 >> 12:30
Datum, Eingabe mit / :
2/2/2012 oder
2/2 das Aktuelle Jahr wird automatisch eingefügt
Gruß Holger
Win7, Office2010
Hallo.
Die Eingabe von Zeiten, Datum und Betrag ist sehr
unkomfortabel. Wer kennt einige Tricks?
Zeit: reine Übungssache den Doppelpunkt „blind“ zu tippen:
kleiner Finger rechte Hand auf Shift + mit dem Zeigefinger die Punkttaste drücken
Datum: Tag(Tag) Punkt Monat(Monat) Return —>liefert ein Datum für aktuelles Jahr
(habe ich viele Vorjahres-„Datümer“ zu tippen, stelle ich das PC-Datum um)
Betrag: wo ist da ein Problem?
Für nachträgliche Formatierung oder für Formatierung von ganzen Bereichen (z.B. Spalten) habe ich mir Tastenkombis angelegt:
strg+d = Datum
strg+u = Uhrzeit
strg+t = Tausenderpunkt
Gruß G
Hallo.
Ich danke allen für die Tips.
Jochen