Optionsfelder auswerten

[OlliBolli]

Hallo Freunde,

ich habe in LibreOffice Writer einen Fragebogen mit Hilfe einer Writer-Tabelle erstellt, in der in der ersten Spalte (Zellen A1 bis A4, A6 bis A9, A11 bis A14 und A16 bis A19) Optionsfelder hinzugefügt wurden, die jeweils die Werte 0, 5, 10 und 15 enthalten. Jetzt möchte ich erreichen, dass in den Zellen B4, B9, B14, und B19 immer der Wert angezeigt wird, der als Option angeklickt wurde. Am Ende soll eine Gesamtsumme über die Zellen B4, B9, B, B14 und B19 gebildet werden.

Screenshots sagen mehr als tausend Worte --> so soll das Endergebnis sein oder so ähnlich:

Screenshot.jpg (97.61 KiB) 2085 mal betrachtet

In LibreOffice-Calc ist mir das gelungen. Allerdings funktioniert der gleiche Ansatz in LibreOffice Writer nicht.

Kann man das vielleicht über ein Makro lösen?

Wer kann mir helfen?

Beste Grüße
OlliBolli

[F3K Total]

Moin, klar geht das, anbei ein Beispiel

Code: Alles auswählen

Sub set_value(event)
    dim n as Integer
    dim nCurrentValue as Integer
    oButton = event.source.model
    n = right(oButton.Name,1)
    if oButton.state = 1 then
        oTable = ThisComponent.Texttables.Tabelle1
        ocell = oTable.getCellbyPosition(1,n-1)
        nCurrentValue = oButton.RefValue
        ocell.Value = nCurrentValue
    endif
End Sub

Gruß R