Hallo Michel, hallo Wolfgang, hallo Jörg,
Michelino Caroselli schrieb:
> Hallo,
>
> Wolfgang Schaible wrote:
>> 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
>
> Ok;)
Na ja. Wenn ich das so eingebe und das Makro ausführe, werden aber die
Daten aus Zeile A1-A6 nacheinander in die Zelle B1 kopiert.
Hilft mir nicht so ganz. ;-)
Also habe ich das ganze wie folgt verändert:
while (oSheetFrom.getCellByPosition(1,iRcnt*6).Type <> 0)
for iRcnt2=0 To 4
copyCellByContent(oSheetFrom.getCellByPosition(1,iRcnt*6+iRcnt2),
oSheetTo.getCellByPosition(iRcnt2,iRcnt))
next iRcnt2
iRcnt = iRcnt+1
wend
Hilft aber auch nix.
Dann werden die leeren Zellen einfach übersprungen und nicht
eingefügt. Was mir nicht hilft. Und der erste Eintrag des datensatzes
fehlt.
Außerdem wird das Makro dann genau 1 Mal ausgeführt.
Ich hatte wohl vergessen zu erwähnen, daß die einzelnen Datensätze
durch eine Leerzeile getrennt sind.
Mea maxima culpa.
Hat trotzdem noch jemand eine Idee für mich?
Viele Grüße
Vera
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
