OpenOffice.info

def repeat_entries():
    calcdoc = XSCRIPTCONTEXT.getDocument()
    sel = calcdoc.CurrentSelection
    out = []
    for entry, count in sel.DataArray:
        out.extend((entry,)*int(count))

    out = tuple(zip(out))
    target = calcdoc.Sheets.getByName('Ausgabe')
    target[ :len(out), 0].DataArray = out

def repeat_entries():
    calcdoc = XSCRIPTCONTEXT.getDocument()
    sel = calcdoc.CurrentSelection
    out = []
    for entry, count in sel.DataArray:
        out.extend((entry,)*int(count))

    out = tuple(zip(out))
    target = calcdoc.Sheets.getByName('Ausgabe')
    target.getCellRangeByPosition(0, 0, 0, len(out)-1 ).DataArray = out

Hallo

Lösung mit python für libreoffice >= Version 5.1

Selektiere den zweispaltigen Ausgangsbereich und starte:

[code]def repeat_entries():
calcdoc = XSCRIPTCONTEXT.getDocument()
sel = calcdoc.CurrentSelection
out = []
for entry, count in sel.DataArray:
out.extend((entry,)*int(count))

out = tuple(zip(out))
target = calcdoc.Sheets.getByName('Ausgabe')
target[ :len(out), 0].DataArray = out[/code]


Variante für AOO und LO allgemein:

[code]def repeat_entries():
calcdoc = XSCRIPTCONTEXT.getDocument()
sel = calcdoc.CurrentSelection
out = []
for entry, count in sel.DataArray:
out.extend((entry,)*int(count))

out = tuple(zip(out))
target = calcdoc.Sheets.getByName('Ausgabe')
target.getCellRangeByPosition(0, 0, 0, len(out)-1 ).DataArray = out[/code]

Hallo
Lösung in zwei Schritten ohne Makro:
[list]1) nimm in Ausgabe.A1 die Formel [color=#FF0000]=WIEDERHOLEN(Eingabe.A1 & ZEICHEN( 13); Eingabe.B1)[/color] und ziehe die Formel nach unten so weit wie nötig.[/list]

[list]2. Markiere den Bereich mit den Formeln und gehe zu [color=#FF0000]→Daten→Text in Spalten (ohne irgendwelche Trennzeichen) →→ok[/color][/list]