Hallo,
Karl-Heinz Gödderz schrieb:
> gibt es eine Möglichkeit, bei einer CALC-Tabelle die aktuelle Zeit
> abzuspeichern und dann in die nächste Zeile zu springen?
>
> Zweck ist es, durch drücken der Entertaste das Eintreten eines
> Ereignisses zu protokollieren, ohne jedes mal die Uhrzeit manuell
> eintragen zu müssen.
Ich zweifle ein wenig ob Du wirklich das willst was dasteht(*), aber
wenn Du das folgende Makro unter Extras-Anpassen der Taste "Eingabe"
zuweist passiert das was Du willst:
Sub Zeit_eintragen()
x = ThisComponent.GetCurrentSelection
If x.supportsService("com.sun.star.sheet.SheetCell") Then
row = x.getRangeAddress.StartRow
col = x.getRangeAddress.StartColumn
x.String = Time()
odoc=thiscomponent
oCtl=thiscomponent.getCurrentController
oSheet = thiscomponent.getCurrentController.ActiveSheet
oCell = oSheet.getCellByPosition(0, row+1)
oCtl.select(oCell)
oRanges = odoc.createInstance("com.sun.star.sheet.SheetCellRanges")
oDoc.CurrentController.Select(oRanges)
End If
End Sub
(*)
weil ich nicht glaube das _jedesmal_ wenn Du Enter drückst das Datum in
die aktuelle Zelle geschrieben werden soll, denn das ist Konsequenz
Deiner Anfrage.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
