Hallo Michel,
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
Den Dispatcher habe ich genommen, weil ich mir da keine Gedanken machen
mußte, welche Werte in der Ausgangstabelle stehen, also ob in Zelle 1
eine Zahl oder Text steht.
Das Ganze passiert nämlich bei unterschiedlichen Abfragen.
Aber ich kann es ja mal mit erst Zellenformat auslesen versuchen.
Hm. Macht den Code aber auch nicht übersichtlicher (Jedenfalls bestimmt
nicht bei mir ;-).
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...
Ok. Dann werde ich das Ganze mal anpassen und testen.
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
Vielen Dank.
Ich melde mich, ob ich das geschafft habe. ;-)
Viele Grüße
Vera
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
