kurze Frage, besteht eigentlich die Möglichkeit über ein Makro, die
Plustaste (Ziffernblock) beispielsweise mit dem Doppelpunkt zu belegen? Es
nervt nämlich schon seit langem, bei Zeiteingaben den Ziffernblock zu
verlassen um den Doppelpunkt einzugeben.
Gruss
Manfred
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Wed, 8 Mar 2000 21:43:35 +0100, schrieb "Manfred Kaczmarek"
<M.Kac...@t-online.de> in microsoft.public.de.excel zu "Plus-Taste
für Zeiteingaben mit Doppelpunkt belegen ?":
vielleicht noch eine kleine Optimierung für die Autokorrektur. Im
SelectionChange-Ereignis des Arbeitsblattes kann man abhängig von der
Formatierung der Zelle (z.B. Uhrzeitformat) eine Autokorrektur setzen (z.B.
ersetze "," durch ":") und beim Verlassen diese Autokorrektur wieder
herausnehmen.
Das hat zum einen den Vorteil, daß man sich 2 Tastenanschläge pro Uhrzeit
spart (da ein Komma nicht doppelt für die Autokorrektur gesetzt werden muß)
und zum anderen, daß die Einträge in der Autokorrektur nicht vergessen
werden und für unvorhergesehene Effekte in anderen Eingaben sorgen.
Jörg
"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag
news:2hgdcssudb55neh3g...@4ax.com...
>bevor du API-Calls verwendest, hier ein XL-internes Hilfsmittel:
>- erstelle unter EXTRAS/Autokorrektur/Ersetzten: ,, (KommaKomma),
> Durch: : (Doppelpunkt), Kontrollfeld: 'Während dr Eingabe ersetzen'
> aktivieren
>- Eingabe einer Zeitangabe nur über den Nummernblock wie folgt:
> 12,,30,,45 --> 12:30:45
Dann muß er auch beim Eintippen den Nummernblock verlassen.
Geht das vielleicht statt zwei Kommata mit zwei Pluszeichen?
Sinnvoll kommen die ja nicht vor :-)
Martin
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Thu, 09 Mar 2000 09:33:19 +0100, schrieb Martin Hentrich
<MHentri...@t-online.de> in microsoft.public.de.excel zu "Re:
Plus-Taste für Zeiteingaben mit Doppelpunkt belegen ?":
>Am Wed, 08 Mar 2000 22:25:52 +0100, Frank Arendt-Theilen
muss es den unbedingt ein Doppelpunkt sein? -
formatiere deine Zellen mit 00":"00
die Zeiteingabe erfolgt z.B.1253 für 12:53.
Eingabe ist gewöhnungsbedürftig aber es klappt.
MfG
Bernd
Manfred Kaczmarek <M.Kac...@t-online.de> schrieb in im Newsbeitrag:
8a6e2k$r5p$1...@news05.btx.dtag.de...
>das Komma liegt im Nummerblock!
Das kommt davon, wenn man es dort nie benutzt
Danke :-))
Martin
Gruß
Manfred
Jörg Nissen <joerg....@t-online.de> schrieb in im Newsbeitrag:
OI5dF6Zi$GA.242@cppssbbsa04...
> Hallo Frank, hallo Manfred,
>
> vielleicht noch eine kleine Optimierung für die Autokorrektur. Im
> SelectionChange-Ereignis des Arbeitsblattes kann man abhängig von der
> Formatierung der Zelle (z.B. Uhrzeitformat) eine Autokorrektur setzen
(z.B.
> ersetze "," durch ":") und beim Verlassen diese Autokorrektur wieder
> herausnehmen.
>
> Das hat zum einen den Vorteil, daß man sich 2 Tastenanschläge pro Uhrzeit
> spart (da ein Komma nicht doppelt für die Autokorrektur gesetzt werden
muß)
> und zum anderen, daß die Einträge in der Autokorrektur nicht vergessen
> werden und für unvorhergesehene Effekte in anderen Eingaben sorgen.
>
>
> Jörg
--------------------------
schnipp --------------------------------------------
Gruß
Manfred
Frank Arendt-Theilen <Thei...@t-online.de> schrieb in im Newsbeitrag:
2hgdcssudb55neh3g...@4ax.com...
> Hallo Manfred,
> bevor du API-Calls verwendest, hier ein XL-internes Hilfsmittel:
> - erstelle unter EXTRAS/Autokorrektur/Ersetzten: ,, (KommaKomma),
> Durch: : (Doppelpunkt), Kontrollfeld: 'Während dr Eingabe ersetzen'
> aktivieren
> - Eingabe einer Zeitangabe nur über den Nummernblock wie folgt:
> 12,,30,,45 --> 12:30:45
>
> MfG Frank
im VBA-Editor für das entsprechend Tabellenblatt den Code Anzeigen lassen.
Dort findest Du dann das Worksheet_SelectionChange-Ereignis. Der Code könnte
dann folgendermaßen aussehen:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Mid(Target.NumberFormatLocal, 3, 1) = ":" Then
Application.AutoCorrect.AddReplacement what:="+", replacement:=":"
Else
On Error Resume Next
Application.AutoCorrect.DeleteReplacement what:="+"
End If
End Sub
Jörg
"Manfred Kaczmarek" <M.Kac...@t-online.de> schrieb im Newsbeitrag
news:8ae7ge$aon$3...@news04.btx.dtag.de...