hallo,
<>
>> Hm. Macht den Code aber auch nicht übersichtlicher
>
> Ändere/ Erweitere mal das Makro folgendermaßen:
> >| while (oSheetFrom.getcellByPosition(0,iCounter*6).Type <> 0)
> >| copyCellByContent(oSheetFrom.getcellByPosition(0,iCounter*6),
> >| oSheetTo.getcellByPosition(0,iCounter))
> >| copyCellByContent(oSheetFrom.getcellByPosition(0,iCounter*6+1)
> >|, oSheetTo.getcellByPosition(1,iCounter))
<>
while (oSheetFrom.getcellByPosition(0,iRcnt*6).Type <> 0)
for iRcnt2=0 To 4
copyCellByContent(oSheetFrom.getcellByPosition(0,iRcnt*6+iRnt2),
oSheetTo.getcellByPosition(1,iRcnt))
next iRcnt2
iRcnt=iRcnt+1
wend
und sub (case 0 und 2 optimiert ):
> >| sub copyCellByContent (oFromCell as Object, oToCell as Object)
> >| select case oFromCell.Type
> >| ' case 0 'while ...Type<>0 deckt dies ab!
> >| ' oToCell = ""
> >| case 2 'zuerst,
> >| oToCell.String = oFromCell.String 'weil häufiger,
> >| case 1 'schneller
> >| oToCell.Value = oFromCell.Value
> >| case 3
> >| oToCell.Formula = oFromCell.Formula
> >| end select
> >| end sub
gefällt deinem Schönheitssinn u.U. besser :-)
Wolfgang
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
