LibreOffice-Forum

Hallo,

in Calc suche ich eine Möglichkeit, Datum/Uhrzeit in eine Zelle zu schreiben, wenn sich die Zelle links davon geändert hat.
In Excel habe ich dazu ein passendes Makro gefunden:

Code: Alles auswählen

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Column
    Case 5 To 5:    Cells(Target.Row, 6) = Now()
End Select

End Sub

Leider lässt sich dieses so nicht in Calc nutzen.
Kann mir jemand dabei helfen?
Vielen lieben Dank!!
Gruß
BS

Hallo,
wenn du das folgende Makro an das Tabellenereignis "Inhalt geändert" bindest, sollte dein Wunsch in Erfüllung gehen.

Code: Alles auswählen

Sub Main (oEvent)

	If oEvent.supportsService("com.sun.star.sheet.SheetCell") Then
		If oEvent.CellAddress.Column=5 Then
			'msgbox oEvent.CellAddress.Row
			oEvent.Spreadsheet.getCellByPosition(6,oEvent.CellAddress.Row).value=now()
		End If
	End If

End Sub

VIELEN LIEBEN DANK.
Das war genau das, was ich suchte. PERFEKT!

LibreOffice-Forum

Eintrag wenn Feldwert geändert wurde

Eintrag wenn Feldwert geändert wurde

Re: Eintrag wenn Feldwert geändert wurde

Re: Eintrag wenn Feldwert geändert wurde