automatisch Zeit und Datum in einer Tabelleeintragen und speichern

[Lang-Port]

ich habe folgendes Problem: ich trage Daten in eine Tabelle ein und möchte in den Spalten daneben automatisch das Datum
und die Uhrzeit des Eintrags speichern. Beispiel:
Spalte1 Spalte2 Spalte3 Spalte4

Zeile1 Eintrag Eintrag Datum Zeit
manuell manuell automatisch automatisch

Zeile2 Eintrag Eintrag Datum Zeit
manuell manuell automatisch automatisch

zB: 150 60 23.11.21 15:32
310 38 29.11.21 11:45

[greifenklau]

Hier mal die Datei.
Schreib mal, ob es das war.

[FFF]

Sehr cool, Gerd!
Wenn man mag, könnte man auch per "T.M.JJ\ h:mm;@" als Zellformat das in einer Spalte abhandeln, so der TE nicht später tatsächlich getrennt nach Zeit oder Datum sortieren mag

[greifenklau]

Ja genau! Jetzt ist wohl kein Wunsch mehr offen geblieben - außer den Weihnachtsmann mal persönlich zu treffen.

[Lang-Port]

Hallo, danke für Eure Tips. Aber so weit bin ich auch gekommen. Nur wenn ich heute am 2.12.21 einen Eintrag
um 11:00 Uhr mache und die Datei speichere ist das zu diesem Zeitpunkt korrekt. Öffne ich die Datei eine Stunde
später erneut, zeigt er mir 12:00 Uhr als Eintragsdatum. Dasgleiche passiert mit dem Datum.Wenn ich also an 10 Tagen
täglich z.B. 3 Einträge mache, dann überschreibt er jedes Datum und die Zeiten mit den aktuellen Daten zum Zeitpunkt des
Öffnens der Tabelle. Dann habe ich habe ich in meiner Tabelle 10 x das gleiche (aktuelle) Datum und 30 x die gleiche Uhrzeit.
Die Kontrolle über den tatsächlichen Zeitpunkt der gemachten Einträge ist somit unmöglich. Ich habe noch keine Funktion
gefunden wie das Programm diese Daten speichert und nicht überschreibt. AUSSER: ich füge alles manuell ein. Da dies aber nur ein Teil meines Gesamtprogramm ist, wollte ich mir diese Mühe sparen. Der Weihnachtsmann hatte auch keine Lösung parat.

[Get]

Eine nicht sonderlich elegante Lösung, aber vielleicht hilft es:
Gleich nach dem Erzeugen eines Eintrags mit "jetzt()" die Zelle markieren, "Ausschneiden", dann auf dieser Zelle "Inhalte einfügen - Formeln in Werte umwandeln".

[greifenklau]

OK, das stimmt leider. Workaround hier:
Erstelle ein identisches Arbeitsblatt für die Eingabe mit den Formeln aus dem Beispiel.
Nach Fertigstellung aller täglichen Eingaben diese markieren und mit STRG + C in das eigentlichen Arbeitsblatt als "Werte" einfügen.

Unter Excel (Windows) könnte man das per VBA-Script automatisieren und unter PM (Windows) mit Basic Maker.

Folgende Kombinationen sind auch möglich:

• Einfügen des aktuellen Datums: STRG+; (Semikolon)

• Einfügen der aktuellen Uhrzeit: STRG+UMSCHALT+; (Semikolon).

Allerdings ist das in dieser Fragestellung nicht unbedingt hilfreich.

Hier mal eine Stelle für ein entsprechendes VBA-Script: https://administrator.de/forum/statisch ... 53582.html

[greifenklau]

So, habe noch was gesucht und gefummelt.
Anbei eine neue Datei - bitte mal testen. Beide Formeln können natürlich kombiniert werden, wenn man Datum und Uhrzeit in einer Zelle haben will.

[martin-k]

Was spricht gegen Strg+. und Strg+Umschalt+. ?

[greifenklau]

Da war noch ein Fehler.
Hier die aktualisierte Datei.

[greifenklau]

Tja, viel Wind um nix.
Leider kommt man an einem, Script nicht herum, egal wie viele Hilfsspalten man zu Hilfe nimmt.

[Get]

Leider kommt man an einem, Script nicht herum, egal wie viele Hilfsspalten man zu Hilfe nimmt.

Hier ist ein Skript:

Code: Alles auswählen

Sub datumtostring
	Dim pm As Object
	Dim wert As String
	Dim r, c, rc, cc As Integer
	Set pm = CreateObject("PlanMaker.Application")
	pm.Application.Visible = True
	rc = pm.ActiveSheet.Selection.Rows.Count
	cc = pm.ActiveSheet.Selection.Columns.Count
	For r = 1 To rc
		For c = 1 To cc
			If pm.ActiveSheet.Selection.Item(r,c).NumberFormatting.Type = pmNumberDate Then 
				wert = pm.ActiveSheet.Selection.Item(r,c).Value
				pm.ActiveSheet.Selection.Item(r,c).Value = wert
			End If
		Next c
	Next r
	Set pm = Nothing
End Sub

Die If-Abfrage kann man sich schenken, wenn man jede Formal in Text umwandeln will.

[greifenklau]

Super! Vielen Dank.
Nur die Mac-User schauen in die Röhre.

[greifenklau]

Was spricht gegen Strg+. und Strg+Umschalt+. ?

OK, noch besser.