Eintrag wenn Feldwert geändert wurde

[racoon7]

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

[mikele]

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

[racoon7]

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