Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Plus-Taste für Zeiteingaben mit Doppelpunkt belegen ?

139 views
Skip to first unread message

Manfred Kaczmarek

unread,
Mar 8, 2000, 3:00:00 AM3/8/00
to
Hallo zusammen,

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

Frank Arendt-Theilen

unread,
Mar 8, 2000, 3:00:00 AM3/8/00
to
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
_____________________________________________________
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 ?":

Jörg Nissen

unread,
Mar 9, 2000, 3:00:00 AM3/9/00
to
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


"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag
news:2hgdcssudb55neh3g...@4ax.com...

Martin Hentrich

unread,
Mar 9, 2000, 3:00:00 AM3/9/00
to
Am Wed, 08 Mar 2000 22:25:52 +0100, Frank Arendt-Theilen
<Thei...@t-online.de> schrieb in
<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

Frank Arendt-Theilen

unread,
Mar 9, 2000, 3:00:00 AM3/9/00
to
Hallo Martin,
das Komma liegt im Nummerblock!

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

Bernd Moewes

unread,
Mar 9, 2000, 3:00:00 AM3/9/00
to
Hallo Manfred,

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...

Martin Hentrich

unread,
Mar 9, 2000, 3:00:00 AM3/9/00
to
Am Thu, 09 Mar 2000 11:13:12 +0100, Frank Arendt-Theilen
<Thei...@t-online.de> schrieb in
<matecsos804m8n125...@4ax.com>:

>das Komma liegt im Nummerblock!

Das kommt davon, wenn man es dort nie benutzt
Danke :-))

Martin

Manfred Kaczmarek

unread,
Mar 11, 2000, 3:00:00 AM3/11/00
to
Hallo Jörg,
der Tip von Frank war "super". Deine Optimierung möchte ich auch gerne
testen. Leider bin ich noch VBA-Anfänger und weiß nicht wie ich Deinen Tip
umsetzen soll. Kannst Du mir das bitte nochmal genauer erläutern, b.z.w. ein
Beispiel als Makro listen (ich vermute es ist eins, oder wo finde ich das
SelectionChange-Ereignis des Arbeitsblattes) . :-))

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 --------------------------------------------

Manfred Kaczmarek

unread,
Mar 11, 2000, 3:00:00 AM3/11/00
to
Hallo Frank,
da arbeite ich schon seit Jahren mit Excel und ärgere mich jedesmal bei der
Eingabe von Zeiten über das von mir beschriebene Problem. Habe auch schon
allerlei Bücher über Excel, Artikel mit Tips und Tricks gelesen und nie eine
praktikabele Lösung gefunden. Das suchen hat dank Deines Tips nun ein Ende,
der Tip war "Gold wert", herzlichen Dank!

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


Jörg Nissen

unread,
Mar 13, 2000, 3:00:00 AM3/13/00
to
Hallo Manfred,

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...

0 new messages