von Aga2 » Di, 02.12.2008 12:45
Hallo Calc-Spezialisten,
für die Bearbeitung in Tabellen von OOo-Clac 2.4.0 brauche ich sehr oft
das Tages-Datum im Format >TT.MM.JJJJ< und die Real-Zeit >hh.mm.ss<.
Dafür habe ich zwei Macros in Modul 1 eingefügt.
Macro1 (Datum) hat die Tastencombi Strg+-,
Macro 2 (Zeit) hat die Tastencombi Strg++.
Tastencombi für Zeit wird richtig dargestellt.
Tastencombi für Datum wird nur >TT.MM.JJ< dargestellt ?
Beide Tastencombi in einer Zelle funktioniert auch nicht.
Hier die Macros:
Sub Macro1 ()
dim aktAdress as new com.sun.star.table.CellAddress
dim document, xlSheet as object
document = ThisComponent
'aktuelle Zelle ermitteln
aktAdress=document.getCurrentSelection().getCellAddress()
Set xlSheet = document.Sheets(aktAdress.sheet)
xlSheet.getCellByPosition( aktAdress.column, aktAdress.row).FormulaLocal = Date
end sub
Sub Macro2 ()
dim aktAdress as new com.sun.star.table.CellAddress
dim document, xlSheet as object
document = ThisComponent
'aktuelle Zelle ermitteln
aktAdress=document.getCurrentSelection().getCellAddress()
Set xlSheet = document.Sheets(aktAdress.sheet)
xlSheet.getCellByPosition( aktAdress.column, aktAdress.row).FormulaLocal = Time
End Sub
Wo liegen die Fehler ? Kenne mich mit Macros nur sehr bescheiden aus !
Vielen Dank im Voraus für die Hilfe.
Aga2
Hallo Calc-Spezialisten,
für die Bearbeitung in Tabellen von OOo-Clac 2.4.0 brauche ich sehr oft
das Tages-Datum im Format >TT.MM.JJJJ< und die Real-Zeit >hh.mm.ss<.
Dafür habe ich zwei Macros in Modul 1 eingefügt.
Macro1 (Datum) hat die Tastencombi [color=#0000FF][b]Strg+-[/b][/color],
Macro 2 (Zeit) hat die Tastencombi [color=#0000FF][b]Strg++[/b][/color].
Tastencombi für Zeit wird richtig dargestellt.
Tastencombi für Datum wird nur >[color=#FF0000][b]TT.MM.JJ[/b][/color]< dargestellt ?
Beide Tastencombi in [b]einer[/b] Zelle funktioniert auch nicht.
[b]Hier die Macros:[/b]
Sub Macro1 ()
dim aktAdress as new com.sun.star.table.CellAddress
dim document, xlSheet as object
document = ThisComponent
'aktuelle Zelle ermitteln
aktAdress=document.getCurrentSelection().getCellAddress()
Set xlSheet = document.Sheets(aktAdress.sheet)
xlSheet.getCellByPosition( aktAdress.column, aktAdress.row).FormulaLocal = Date
end sub
Sub Macro2 ()
dim aktAdress as new com.sun.star.table.CellAddress
dim document, xlSheet as object
document = ThisComponent
'aktuelle Zelle ermitteln
aktAdress=document.getCurrentSelection().getCellAddress()
Set xlSheet = document.Sheets(aktAdress.sheet)
xlSheet.getCellByPosition( aktAdress.column, aktAdress.row).FormulaLocal = Time
End Sub
[b]Wo liegen die Fehler ? Kenne mich mit Macros nur sehr bescheiden aus ! [/b]
Vielen Dank im Voraus für die Hilfe.
Aga2