Hallo Michel und Wolfgang,
> -----Ursprüngliche Nachricht----- > Von: news [mailto:[EMAIL PROTECTED] Auftrag von Michelino Caroselli > Gesendet: Freitag, 2. Februar 2007 17:35 > > 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...') Dein Programm hat es zwar umgebrochen, aber das macht nix. Das kriege ich schon hin. Werde ich morgen mal ausprobieren. Vielleicht merke ich dann auch, wo mein Denkfehler lag. Sorry, schon spät heute abend. Aber Euch beiden auch noch mal vielen Dank für Eure Mühe. Ciao Vera --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
