OpenOffice.info

[quote="mikeleb"]Hallo,
das gewünschte Ergebnis kannst du mit ein bisschen Formelaufwand automatisch generieren lassen.
[/quote]

Danke mikeleb, allerdings hat die Zeile mehrere Werte z.B. Artikelnummer, Status ect.
Mit der anderen Lösung klappts gut, den Rest mach ich von Hand.

nNewRows = (nRows + 1) * nCopies)

nNewRows = ((nRows + 1) * nCopies) - 1

[quote="Bartex"]Achtung die erste Zeile wird 1x mehr dupliziert, sonst super[/quote]
Tja, das habe ich wohl übersehen
Ändere
[code]nNewRows = (nRows + 1) * nCopies)[/code]
in
[code]nNewRows = ((nRows + 1) * nCopies) - 1[/code]dann klappt's auch mit der ersten Zeile.
Gruß R

Hallo,

das gewünschte Ergebnis kannst du mit ein bisschen Formelaufwand automatisch generieren lassen.
Anbei ein Beispiel.
Auf dem Tabellenblatt "Daten" gibst du die Grunddaten (Hauptgruppen, Länder, Mengen) ein und auf dem Tabellenblatt "Ergebnis" wird dir dann die Verkettung generiert (ggf. die Formel in Spalte A weiter nach unten ziehen)
Die kannst du dir dann per Markieren->Kopieren->Inhalte einfügen->Text an die Stelle kopieren wo du sie brauchst.

[quote="F3K Total"]
Markiere den zu vervielfältigenden Zellbereich (im Beispiel A2:C9), lass das Makro laufen, gibt die gewünschte Anzahl ein und OK
[/quote]
Achtung die erste Zeile wird 1x mehr dupliziert, sonst super

=WIEDERHOLEN(A1&ZEICHEN(13);7)

Hallo

[b]Notfalls[/b] geht das auch per
[code]=WIEDERHOLEN(A1&ZEICHEN(13);7)[/code]
nach rechts und nach unten kopieren und für jede Formelspalte einzeln: [color=#BF0000]→Daten→Text in Spalten alles abwählen →→ok[/color]

Karolus

Sub S_copy_seven_rows_Selection
    Dim nCopies as integer
    nCopies = inputbox("Wie oft soll jede Zeile dargestellt werden","Dateneingabe",7)
    oselection = Thiscomponent.currentselection
    oRangeAddress = oselection.RangeAddress
    aDataarray = oselection.DataArray
    nRows = uBound(aDataarray)
    nNewRows = (nRows + 1) * nCopies
    Redim Preserve aDataarray(nNewRows)
    nCounter = 0
    for i = nRows to 0 step -1
        aRowDataarray = aDataarray(i)        
        for k = 0 to nCopies - 1
            aDataarray(nNewRows-nCounter) = aRowDataarray
            nCounter = nCounter + 1
        next k
    next i
    oSheet = oselection.Spreadsheet
    oRange = oSheet.getcellrangebyposition(oRangeAddress.Startcolumn,oRangeAddress.StartRow,oRangeAddress.Endcolumn,oRangeAddress.StartRow + nNewRows)
    oRange.setDataArray(aDataarray)
End Sub

Moin,
Karolus hat völlig Recht, warum und wofür du sieben Kopien brauchst, sagst Du nicht, deshalb entgeht dir vermutlich eine viel einfachere Lösung.
Nun hatte ich das Makro schon fertig, darum lade ich es trotzdem hoch.
Markiere den zu vervielfältigenden Zellbereich (im Beispiel A2:C9), lass das Makro laufen, gibt die gewünschte Anzahl ein und OK
[code]Sub S_copy_seven_rows_Selection
Dim nCopies as integer
nCopies = inputbox("Wie oft soll jede Zeile dargestellt werden","Dateneingabe",7)
oselection = Thiscomponent.currentselection
oRangeAddress = oselection.RangeAddress
aDataarray = oselection.DataArray
nRows = uBound(aDataarray)
nNewRows = (nRows + 1) * nCopies
Redim Preserve aDataarray(nNewRows)
nCounter = 0
for i = nRows to 0 step -1
aRowDataarray = aDataarray(i)
for k = 0 to nCopies - 1
aDataarray(nNewRows-nCounter) = aRowDataarray
nCounter = nCounter + 1
next k
next i
oSheet = oselection.Spreadsheet
oRange = oSheet.getcellrangebyposition(oRangeAddress.Startcolumn,oRangeAddress.StartRow,oRangeAddress.Endcolumn,oRangeAddress.StartRow + nNewRows)
oRange.setDataArray(aDataarray)
End Sub[/code]Anbei eine Beispieldatei

[quote="Bartex"]Gerne:

[quote]Es geht darum jede Zeile einer Tabelle 7x zu dublizieren[/quote][/quote]

Ich fürchte du hast meinen Wink mit dem [color=#BFFFBF]Zaunpfahl[/color][url=http://xyproblem.info/]Link[/url] nicht so ganz verstanden.

Hallo

[url]http://xyproblem.info/[/url]

Eventuell möchtest du die eigentliche Aufgabenstellung beschreiben?!

Karolus