Verwende folgendes Makro, in Verbindung mit einem Tastaturkürzel :
(Ich hab das Makro praktischerweise gleich für ein Zeiteingabe ohne Doppelpunkt geschrieben.)
Code: Alles auswählen
Sub Zahl_zu_minute_Sekunde
' Wandelt eine Eingabe ganzer Zahlen direkt in ein Minuten:Sekunden format:
' Aus 344 wird 0:03:44
' ! Die Zahl ohne Doppelpunkt eingeben mit 2 Sekundenstellen !
' ! Definiere vorher eine Zellvorlage mit dem Namen: "Minute_Sekunde" !!
' -mit dem passend eingestellten Zeitformatcode: 'h:mm:ss' oder '[mm]:ss' oder ähnlich !
' Verknüpfe das Makro mit einem Tastaturkürzel -->Extras--Anpassen--Tastatur,
' das Tastaturkürzel verwendest du statt der Eingabetaste.
'Start Aufzeichnung
dim document as object
dim dispatcher as object
' Simulation der Eingabe und Rücksprung zur Selektion der Zelle
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args2())
'Ende der Aufzeichnung
ocell = thiscomponent.currentselection()
ocellwert = ocell.string
if len(ocellwert) = 1 then : nsec = ocellwert : else
nsec = right(ocellwert,2)
end if
if len(ocellwert) < 3 then
ocell.formula = "0:00:"&nsec
else
nminuten = left(ocellwert,len(ocellwert)-2)
ocell.formula = 0 &":"& nminuten & ":"& nsec
end if
ocell.cellstyle = "Minute_Sekunde"
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2()) 'oder: ".uno:GoRight"
End Sub
http://www.ooowiki.de/MakrosInstallieren im Kapitel "Quellcode übernehmen"
http://www.ooowiki.de/TastenKombinationen
Gruß Karo
