mein erstes Mal
Verfasst: Sa, 31.10.2009 21:14
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
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
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
aber lacht bitte nicht
für konstruktive Kritik bin ich aber immer zu haben
boah ähh ich hab's gemacht echt
