OpenOffice.info

Moin Moin, ja deutlich klarer, vielen Dank für die Erklärung.

        stext = inputbox ("Text","Text")

        oSel = thiscomponent.currentselection

        if oSel.supportsservice("com.sun.star.sheet.SheetCellRange") then

        adata = oSel.dataArray

        for i = 0 to ubound(adata)
            for k = 0 to ubound(adata(i))
                adata(i)(k) = stext
            next k
        next i

        oSel.setdataArray(adata)

Das ist ganz einfach:
[code] stext = inputbox ("Text","Text")[/code]... weise die Eingabe aus der Box der Variable [color=#0040FF]stext[/color] zu
[code] oSel = thiscomponent.currentselection[/code]... weise die aktuelle Auswahl (markierte Zellen) der Variable [color=#0040FF]osel[/color] zu
[code] if oSel.supportsservice("com.sun.star.sheet.SheetCellRange") then[/code]... wenn es sich bei der aktuellen Auswahl um einen Bereich von Zellen handelt
[code] adata = oSel.dataArray[/code]... weise die Daten in den Zellen der Variable [color=#0040FF]aData[/color] zu, aData ist ein Feld, mit soviel Zeilen und Spalten wie sie der ausgewählte Zellbereich hat
[code] for i = 0 to ubound(adata)
for k = 0 to ubound(adata(i))
adata(i)(k) = stext
next k
next i[/code]... weise jedem Feld von [color=#0040FF]aData[/color] (Zeilen von 0 bis zur Obergrenze, Spalten von 0 bis zur Obergrenze, den Inhalt von [color=#0040FF]sText[/color] zu
[code] oSel.setdataArray(adata)[/code]... schreibe das Datenfeld in die Auswahl von Zellen zurück.
Klarer?
Gruß R

Moin Rik,

vielen Dank, das klappt super. Das liest sich wieder so kompliziert - ich kapier das leider nicht. Danke, dass Du so nett bist mir Deine Zeit zu 'opfern' und mir diesen fertigen Code gibst! Ich habe schon einiges von Deinen Tipps nutzen können! Noch eine schöne Woche,

Sub Main
    stext = inputbox ("Text","Text")
    oSel = thiscomponent.currentselection
    if oSel.supportsservice("com.sun.star.sheet.SheetCellRange") then
    adata = oSel.dataArray
    for i = 0 to ubound(adata)
        for k = 0 to ubound(adata(i))
            adata(i)(k) = stext
        next k
    next i
    oSel.setdataArray(adata)
    endif
End Sub

Hi,
ein Beispiel
[code]Sub Main
stext = inputbox ("Text","Text")
oSel = thiscomponent.currentselection
if oSel.supportsservice("com.sun.star.sheet.SheetCellRange") then
adata = oSel.dataArray
for i = 0 to ubound(adata)
for k = 0 to ubound(adata(i))
adata(i)(k) = stext
next k
next i
oSel.setdataArray(adata)
endif
End Sub[/code]
HTH R

Hallo mal wieder,
ich habe folgendes Problem:
Ich markiere in einer Liste die Zellen A5:D5.
Rechtsklick, dadurch wird per Tabellenereignis ein Dialog angezeigt.
In dem Dialog wird 1 Textfeld ausgefüllt.
[u]Problem[/u]: Jetzt soll durch Klick auf "OK"-Button der Inhalt des Textfeldes in alle markierten Zellen eingefügt werden.
Wie lautet der Code?