Uhrzeit fixieren

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Alimio

Uhrzeit fixieren

Beitrag von Alimio »

Hallo liebes Forum,

ich habe mich nach einigen Stunden online Recherche dazu entschieden ein Thema zu eröffnen.
Ich möchte über ein Makro die aktuelle Uhrzeit fixieren bzw. festhalten.
Online gibt es einige Lösungen dazu, dass Datum zu fixieren welche ich nicht so ganz verstehe.

Es muss doch die Möglichkeit geben via Basic den Wert einer dynamischen Variablen in eine String Variable zu speichern. Ohne, dass sich der String Wert anschließend verändert.
Leider kenne ich mich mit Basic nicht ganz so gut aus weshalb ich auf eure Hilfe hoffe.

Wäre cool wenn mir einer dabei behilflich sein kann =)

Mein Code sieht aktuell wie folgt aus:

Code: Alles auswählen

sub Aktuelle_Zeit
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim timestamp as string
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
timestamp = "=ZEIT(STUNDE(JETZT());MINUTE(JETZT());SEKUNDE(JETZT()))"

args1(0).Value = CStr(timestamp)
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())


end sub

Schönen Gruß
Alimio
Karolus
********
Beiträge: 7136
Registriert: Mo, 02.01.2006 19:48

Re: Uhrzeit fixieren

Beitrag von Karolus »

Du schreibst nicht welches Calc (AOO oder Libreoffice) in welcher Version auf welchem Betriebssystem du benutzt.
Bei LO auf Linux wird gewöhnlich über die Tastenkombi strg; das Datum eingefügt, per strg+shift; die Uhrzeit, beides nacheinander ergibt den kompletten fixen Datums|Zeitstempel.

Da die erreichbaren Tastenkürzel aber zunächst von BS, Desktopmanagern und allgemeiner Tastatureinstellung abhängig sind, musst du unter →Extras→Anpassen→Tastatur nachschauen was und wie es per Tastenkürzel eingestellt werden kann.
Version: 6.1.5.2
Build-ID: 1:6.1.5-3+rpi1+deb10u6+rpt1
raspberry-pi-OS
Alimio

Re: Uhrzeit fixieren

Beitrag von Alimio »

Also die Rede ist hierbei von:
Calc aus OpenOffice 4.1.10 als portable App auf dem Betriebssystem Windows 10
Stephan
********
Beiträge: 12310
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Uhrzeit fixieren

Beitrag von Stephan »

Du muss den aktuellen Zeit-Wert eintragen und keine Formel.

z.B.:

Code: Alles auswählen

Sub Zeit_eintragen()
  sel = thisComponent.getCurrentSelection
  If sel.supportsService("com.sun.star.sheet.SheetCell") then
		  sel.value = now()
		  sel.NumberFormat = 41 'HH:MM:SS
	  Else
	  	Msgbox "Bitte nur eine einzelne Zelle markieren."
  End if
End Sub
GRuß
Stephan
Alimio

Re: Uhrzeit fixieren

Beitrag von Alimio »

Super vielen Dank Stephan 👍🏽
Antworten