Shortcut für Vortagsdatum

[Groej Neweol]

Hallo,

mit Strg + . wird ja in der aktiven Zelle das aktuelle Datum eingetragen.

Gibt es einen ähnlichen Shortcut für das Datum des Vortages?

GG

[Claus Busch]

Hallo Groej,

Post by Groej Neweol
mit Strg + . wird ja in der aktiven Zelle das aktuelle Datum eingetragen.
Gibt es einen ähnlichen Shortcut für das Datum des Vortages?

nein, den gibt es nicht.


Mit freundlichen Grüßen
Claus Busch

[Claus Busch]

Hallo Groej,

Post by Claus Busch

Post by Groej Neweol
Gibt es einen ähnlichen Shortcut für das Datum des Vortages?

nein, den gibt es nicht.

aber du kannst dir die Eingabe doch vereinfachen. Für ein Datum im
aktuellen Jahr reicht schon Tag - Monat, also für gestern z.B. 1-12
Ein Datum aus einem anderen Jahr trage ich Tag/Monat/Jahr ein, also
1/12/12. Dann kann ich alles über den Nummernblock machen und es geht
dadurch schneller.


Mit freundlichen Grüßen
Claus Busch

[t***@gmail.com]

Hallo Groej

wenn du es unbedingt mit einem shortcut machen willst dann erstelle dir doch einen eigenen.

ins workbook open der mappe:

Application.OnKey "^ö", "datum_von_gestern"

in ein modul:

sub datum_von_gestern()
ActiveCell.Value = (Date) - 1
end sub

mit der tastenkombi strg + ö
schreibt es dir das datum von gestern in die aktive zelle


getestet mit excel2007 unter win7 prof 64

mfg Thomas Koch

[Groej Neweol]

Post by t***@gmail.com
wenn du es unbedingt mit einem shortcut machen willst dann erstelle dir doch einen eigenen.
Application.OnKey "^ö", "datum_von_gestern"
sub datum_von_gestern()
ActiveCell.Value = (Date) - 1
end sub
mit der tastenkombi strg + ö
schreibt es dir das datum von gestern in die aktive zelle

Liest sich gut. Wo finde ich das workbook open?

GG

[t***@gmail.com]

hallo groej

wenn du die excelmappe auf hast mit der tastenkombi alt F11
in die entwicklungsumgebung wechseln

auf der linken seite in dem neuen fenster sollte dann der projekt explorer
zu sehen sein
Projekt-VBAProjekt
ist er nicht zu sehen aktivierst du ihn unter ansicht --> projekt explorer
dann klickst du doppelt auf den eintrag "diese arbeitsmappe"
dort schreibst du rein:

Private Sub Workbook_Open()
Application.OnKey "^ö", "datum_von_gestern"
End Sub


danach klickst du unter "einfügen" auf "modul"

dann erscheint in der linken liste der eintrag "Modul1"
doppelt drauf und da schreibst du dann

Sub datum_von_gestern()
ActiveCell.Value = (Date) - 1
End sub

die mappe speichern und schließen
nach erneutem öffnen ist der shortcut verfügbar und du kannst
mit der tastenkombi strg + ö das alte datum eintragen.

eventuell mußt du noch die ausführung von makros zulassen
wie das geht das hängt von deiner excel-version ab

mfg Thomas Koch