mein erstes Mal

[clag]

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: Alles auswählen

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 

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

boah ähh ich hab's gemacht echt

[Karolus]

Hallo
Es bietet sich hier an ,statt:

Code: Alles auswählen

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

eine for-Schleife zu nehmen:

Code: Alles auswählen

for counter = 0 to 19
...
next 

Gruß Karo

[clag]

Hi

hab's schon übernommen

danke