OpenOffice.info

Verfasst: **Di, 07.03.2017 12:07**

Hallo,

ich habe folgenden Code, der auch soweit funktioniert

Sub Setze_Datum()
With ThisComponent.CurrentController.getActiveSheet
	dpf = .Drawpage.Forms
	dfn = dpf.getByName("Formular").GetByName("datum1").date
	.getCellRangeByName("A1").FormulaLocal = CDateFromIso(dfn)
End With
End Sub

Aber ich möchte, dass der Inhalt des Datumfeldes "datum1" nicht im selben Tabellenblatt gespeichert werden soll, sondern in Tabellenblatt 2. Ich schaffe es nicht, diese Verknüpfung im Code richtig darzustellen. (Es funktioniert nur, wenn ich keine gesonderten Tabellenname erwähne)

Vielen Dank für eure Mithilfe!

Verfasst: **Di, 07.03.2017 12:14**

Die Tabelle namens "Tabellenblatt2":

Code: Alles auswählen

Sub Setze_Datum()
With ThisComponent.CurrentController.getActiveSheet
	dpf = .Drawpage.Forms
	dfn = dpf.getByName("Formular").GetByName("datum1").date
End With
ThisComponent.Sheets().getByName("Tabellenblatt2").getCellRangeByName("A1").FormulaLocal = CDateFromIso(dfn)
End Sub

Die zweite Tabelle von Links (Index=1):

Code: Alles auswählen

Sub Setze_Datum()
With ThisComponent.CurrentController.getActiveSheet
	dpf = .Drawpage.Forms
	dfn = dpf.getByName("Formular").GetByName("datum1").date
End With
ThisComponent.Sheets().getByIndex(1).getCellRangeByName("A1").FormulaLocal = CDateFromIso(dfn)
End Sub

Gruß
Stephan

OpenOffice.info

Inhalt des Datumfeldes in anderem Tabellenblatt hinterlegen

Inhalt des Datumfeldes in anderem Tabellenblatt hinterlegen

Re: Inhalt des Datumfeldes in anderem Tabellenblatt hinterlegen