OpenOffice.info

Hi

hab's schon übernommen :)

danke

do until counter =20
....
counter =counter +1
loop

for counter = 0 to 19
...
next 

Hallo
Es bietet sich hier an ,statt:
[code]do until counter =20
....
counter =counter +1
loop[/code]
eine for-Schleife zu nehmen:

[code]for counter = 0 to 19
...
next [/code]

Gruß Karo

Sub Text_to_Notiz

dim counter
counter=0
oDoc = thisComponent
oSheet = oDoc.sheets(0)
myDoc = thisComponent
mySheet = myDoc.sheets(0)

do until counter=20
mycell = mysheet.getCellByPosition(4,counter)
myString=mycell.string
oZelle=oSheet.getCellByPosition(3,counter)
oZellAdresse = oZelle.CellAddress
oNotizen=oSheet.getAnnotations
oNotizen.insertNew(oZellAdresse, mystring)
counter=counter+1
loop

End Sub 

Hi Leutz,

der Karolus hat mich dazu verführt
und nun habe ich es zum ersten Mal getan
und wollte mal fragen ob das so genehmigt werden kann

[code]Sub Text_to_Notiz

dim counter
counter=0
oDoc = thisComponent
oSheet = oDoc.sheets(0)
myDoc = thisComponent
mySheet = myDoc.sheets(0)

do until counter=20
mycell = mysheet.getCellByPosition(4,counter)
myString=mycell.string
oZelle=oSheet.getCellByPosition(3,counter)
oZellAdresse = oZelle.CellAddress
oNotizen=oSheet.getAnnotations
oNotizen.insertNew(oZellAdresse, mystring)
counter=counter+1
loop

End Sub

[/code]

um aus der Zelle den Text in die daneben liegende Notiz zu schreiben
aber lacht bitte nicht :lol:
für konstruktive Kritik bin ich aber immer zu haben

boah ähh ich hab's gemacht echt :D