Office: Zeit per Knopfdruck eintragen

Mein Problen: ich habe eine Tabelle mit mehreren Spalten wo an verschienen Stellen immer wieder die aktuelle Zeit eingetragen werden muss.
Ich möchte einen CommandButton verwenden der mir die aktuelle Zeit in das markierte Feld schreibt
Kann mur da jemand helfen?
habe leider von macroprog. keinen Schimmer
Danke im Voraus

 

a) aktiviere, falls nicht schon geschehen, die "Steuerelemente-Toolbox" über das Menü "Ansicht - Symbolleisten"
b) wähle aus der Symbolleiste den Button (Befehlsschaltfläche) und platziere ihn auf dem Blatt.
c) Drücke die rechte Maustaste auf dem Button und wähle "Code anzeigen" --> Du landest im VBA-Editor.
d) zwischen SUB und END SUB dann folgenden Code:

Code:

ActiveCell.Value = Now()

Damit wird Datum und Uhrzeit eingefügt. Möchtest Du nur das Datum:

Code:

ActiveCell.Value = Int(Now())

Oder nur die Uhrzeit:

Code:

ActiveCell.Value = Now() - Int(Now())

Wenn Du ein bestimmtes Format der Darstellung haben möchtest, kann man direkt danach auch mit .numberformat noch was drehen. Aber das kannst Du dann ja nochmal sagen.

Gruß, Michael

 

markiere die Zellen und strg+Doppelpunkt und strg+Enter

 

super

Danke für die schnelle Hilfe
Funktioniert einwandfrei.