Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 20:05:21
28.04.2024 18:33:31
28.04.2024 18:25:12
28.04.2024 14:18:05
Anzeige
Archiv - Navigation
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
script für aktuelle Zeit in aktiver Zelle
08.09.2023 15:23:33
chiefwolle
Hallo,

für die Erfassung der Arbeitszeit möchte ich frei eine Zelle anwählen und per Klick auf eine Schaltfläche dann nur die akktuelle Zeit in diese Zelle eingetragen bekommen

Danke
Mat

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: script für aktuelle Zeit in aktiver Zelle
08.09.2023 15:46:12
Yal
Hallo Mat,

Zelle auswählen,
Makrorekorder starten,
Makro-Name vergeben,
Buchstabe D (für Strg+Shift+D) eintragen
=Jetzt() eingeben, enter,
Zelle kopieren (Strg+c),
als Wert einfügen (alt, r, v, w)
Makrorekorder stoppen.

Zelle auswählen, Shift+Strg+d tippen.

VG
Yal
AW: script für aktuelle Zeit in aktiver Zelle -> STRG+":"
08.09.2023 16:08:31
daniel
Hi
das geht ohne Makro, bzw MS hat da schon was für dich vorbereitet:

STRG+Doppelpunkt - > aktuelle Zeit
STRG+Punkt - > aktuelles Datum

Gruß Daniel
gesucht, aber nicht gefunden ;-) Danke! owT
08.09.2023 16:20:30
Yal
AW: script für aktuelle Zeit in aktiver Zelle -> STRG+":"
11.09.2023 07:43:00
chiefwolle
Danke!
Na ja...
08.09.2023 15:51:40
Yal
Hätte ich mal zuerst vollständig probiert...

Noch dazu:
Visual Basic öffnen (Alt+F11)
auf Modul1 gehen,
Code zwischen "Sub" und "End Sub" erstzen:
Sub Makro1()

'
' Makro1 Makro
'
' Tastenkombination: Strg+Umschalt+D
'
ActiveCell.Value = Format(Now, "DD.MM.YYYY hh:mm:ss")
End Sub


Also nur den Code ersetzen, nicht die Procedure-Definition, sonst ist nichts mehr mit dem Shift+Strg+d.

VG
Yal
Anzeige
AW: Na ja...
08.09.2023 16:18:52
daniel
nope, so nicht!
das trägt nicht das Datum ein, sondern nur einen Text, der wie ein Datum aussieht.
Excel kann das nicht in ein Datum wandeln.
wenn, dann so:
ActiveCell.FormulaLocal = Format(Now, "DD.MM.YYYY hh:mm:ss")

oder einfach
ActiveCell.Value = Now


gruß Daniel

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige