deutsches Forum rund um Apache OpenOffice und LibreOffice
http://www.oooforum.de/
Ich fürchte du hast meinen Wink mit dem ZaunpfahlLink nicht so ganz verstanden.Bartex hat geschrieben:Gerne:
Es geht darum jede Zeile einer Tabelle 7x zu dublizieren
Code: Alles auswählen
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 SubCode: Alles auswählen
=WIEDERHOLEN(A1&ZEICHEN(13);7)Achtung die erste Zeile wird 1x mehr dupliziert, sonst superF3K Total hat geschrieben: Markiere den zu vervielfältigenden Zellbereich (im Beispiel A2:C9), lass das Makro laufen, gibt die gewünschte Anzahl ein und OK
Tja, das habe ich wohl übersehenBartex hat geschrieben:Achtung die erste Zeile wird 1x mehr dupliziert, sonst super
Code: Alles auswählen
nNewRows = (nRows + 1) * nCopies)Code: Alles auswählen
nNewRows = ((nRows + 1) * nCopies) - 1Danke mikeleb, allerdings hat die Zeile mehrere Werte z.B. Artikelnummer, Status ect.mikeleb hat geschrieben:Hallo,
das gewünschte Ergebnis kannst du mit ein bisschen Formelaufwand automatisch generieren lassen.