Hi,
Vera Unverzagt wrote:
> Stop. Man sollte erst nachdenken und dann schreiben. :-)
>
> Vera Unverzagt <mailto:[EMAIL PROTECTED]> schrieb am Friday,
> February 02, 2007 4:39 PM:
>
>
>> Und der erste Eintrag des datensatzes
>> fehlt.
>> Außerdem wird das Makro dann genau 1 Mal ausgeführt.
>
> Nachdem ich die fehlende 1. Zeile eingefügt habe, klappt das mit dem
> mehrfachen Ausführen. *schäm*
>
> Nur: Ich erhalte dann folgendes
>
> Name Name2 Name3 Strasse PLZ Ort
> Firma XYZ Bahnhofstr 12345 Hamburg
> Hamburg
>
> Weitere Datensätze werden dann verschoben.
>
> Wo habe ich da Mist gemacht?
Sorry, für das durcheinander. Nach dem Hinweis von Jörg (FormulaLocal,
welches mir unbekannt war) kann das Ganze so aussehen:
<snip>
>| option explicit
>|
>| sub Main
>| dim oSheetFrom as object
>| dim oSheetTo as object
>| dim iRcnt, iRcnt2 as integer
>|
>| oSheetFrom = thisComponent.Sheets().getByName("Tabelle1")
>| oSheetTo = thisComponent.Sheets().getByName("Tabelle2")
>|
>| iRcnt = 0
>| while (oSheetFrom.getcellByPosition(0,iRcnt*7).Type <> 0)
>| for iRcnt2 = 0 To 5
>| oSheetTo.getcellByPosition(iCnt2,iCnt).FormulaLocal =
>oSheetFrom.getcellByPosition(0,iCnt*7+iCnt2).FormulaLocal
>| next iRcnt2
>| iRcnt=iRcnt + 1
>| wend
>|
>| end sub
<snap>
Falls mein IceDove nicht wieder die Zeilen umbricht solltest du alles
zwischen <snip> und <snap> in die Zwischenablage kopieren können, im
OOo- Basic Editor ein neues Modul erstellen und in dieses Modul Pasten.
Danach noch die '>|' am Anfang der Zeile löschen und du solltest das
Makro direkt aus dem Editor ausführen können (Extras - Makros - Makro
ausführen...')
HTH und Gruß, Michel
--
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
