Inhalt des Datumfeldes in anderem Tabellenblatt hinterlegen

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Ouagadougou
**
Beiträge: 27
Registriert: Mi, 01.02.2017 11:13

Inhalt des Datumfeldes in anderem Tabellenblatt hinterlegen

Beitrag von Ouagadougou »

Hallo,

ich habe folgenden Code, der auch soweit funktioniert

Code: Alles auswählen

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!
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Inhalt des Datumfeldes in anderem Tabellenblatt hinterlegen

Beitrag von Stephan »

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
Antworten