Zeitfeld automatsich aktualisieren

[bmheckeroth]

Hallo,

ich bin auf der Suche, in einem Feld immer die aktualisierte Urzeit darzustellen zu lassen, und zwar automatisch, also ohne immer per Tastendruck zu aktualisieren.

Diese Zeit brauche ich danach für bedinte Formatierungen.

Wäre schön, wenn jemand eine Lösung hätte.

[seballa]

Ich nehme an das du die jetzt() funktion benutzt.

Dabei wird die Uhrzeit nach JEDER Änderung IRGENDEINER Zeller aktuallisiert. Wenn dir das nicht reicht wirds schwierig, da auch ein Makro einen Grund braucht ausgeführt zu werden aber vielleicht gibt es jemanden im Makro Forum jemanden der da weiterhelfen kann.

[Toxitom]

Hey bmheckeroth,

also, mit Bordmitteln wird das kaum zu lösen sein. Mit zwei kleinen Makros aber lässt sich das realisieren. Was du brauchst sind aber zwei Buttons im Tabellenblatt, einmal um die Zeit laufen zu lassen, zum anderen, um die Zeit wieder zu stoppen (Ende des Makros).

Also, das folgende Makro bringt die Zeit ins Feld A10 des ersten Tabellenblattes. Du musst das Feld aber entsprechend formatieren (HH:MM:SS), dann wird jede Sekunde gezählt.
Das Stopp Makro dient zum benenden des ersten Makros.

Code: Alles auswählen

dim z as Boolean

Sub Zeitaktualisieren
	z = true
	oSheet = ThisComponent.sheets(0)
	oZelle = oSheet.getCellRangeByName("A10")
	do while z
	  oZelle.value = now()
	  wait 1000
	loop
End Sub

sub Zeitstopp
	z = false
end sub

Na denn - viel Spass.

Gruss
Thomas