Vera Unverzagt wrote:
> ich stehe mit meinem Programmierversuch immer noch am Anfang.
> Ich habe mit Hilfe des Makrorekorders aufgezeichnet, daß 6 Zellen
> (untereinander) markiert, kopiert und transponiert auf einem anderen
> Tabellenblatt wieder eingefügt werden. Danach soll die Markierung um 2
> Zellen nach unten verschoben werden.
>
> Klappt wunderbar.
>
> Da ich nun diese 6 zusammengehörigen Zellen 6921 mal in der Tabelle
> habe, wollte ich mir ersparen, 6921 mal das Makro auszuführen.
Ohne jetzt versucht zu haben deine Konstruktion nachzubilden (ich habe
keine Ahnung was der Makrorekorder da anlegt).
**Quick and Dirty:**
| option explicit
| sub Main
| dim oSheetFrom as object
| dim oSheetTo as object
| dim iCounter as integer
|
| oSheetFrom = thisComponent.Sheets().getByName("Tabelle1")
| oSheetTo = thisComponent.Sheets().getByName("Tabelle2")
|
| iCounter = 0
| while (oSheetFrom.getcellByPosition(0,iCounter*6).String <> "")
| oSheetTo.getcellByPosition(0,iCounter).String =
oSheetFrom.getcellByPosition(0,iCounter*6).String
| oSheetTo.getcellByPosition(1,iCounter).String =
oSheetFrom.getcellByPosition(0,iCounter*6+1).String
| oSheetTo.getcellByPosition(2,iCounter).String =
oSheetFrom.getcellByPosition(0,iCounter*6+2).String
| oSheetTo.getcellByPosition(3,iCounter).String =
oSheetFrom.getcellByPosition(0,iCounter*6+3).String
| oSheetTo.getcellByPosition(4,iCounter).String =
oSheetFrom.getcellByPosition(0,iCounter*6+4).String
| iCounter = iCounter + 1
| wend
|
| end sub
Ich bin davon ausgegangen (auch aus den Angaben deines Posting vom
31.1), dass die zu übertragenen Werte in 'Tabelle1' Spalte A stehen
(Zeile1 ...). Übertragen werden sie in 'Tabelle2' ab Zeile 1,
SpaltenA..E. Getestet habe ich es mit einigen Werten, aber bei ~7000
Zeilen...
Es werden auch nur Strings übertragen! Sollten die Zellen andere Formate
haben, musst die entsprechenden Zeilen im Makro anpassen.
Vielleicht hilft es ja.
HTH und Gruß, Michel
--
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
