Hallo Michael,
Das sieht gut aus! Ich werde das am Samstag ausprobieren. Schon jetzt vielen Dank!
wenn Du mal dran bist, kannst Du auch gleich meine Version ausprobieren: (einmal hin, einmal her, rundherum ... ;-)
Sub NotizenKopieren_in_rechteZelle
rem W�hle erst einen 2-spaltigen Bereich aus !
rem Die erste Spalte enth�lt die Zelle(n) mit Notizen,
rem In die Spalte rechts daneben schreibt das Makro die Notizen als Zellinhalte.
rem Enth�lt eine (linke) Zelle also keine Notiz, ist die rechte Zelle anschlie�end leer.
myCellRange = thisComponent.currentController.Selection
myRangeAddress = myCellRange.getRangeAddress()
z1 = myRangeAddress.StartRow()
zn = myRangeAddress.EndRow()
n = zn - z1
for i=0 to n
myCellRange.getCellByPosition(1,i).String = myCellRange.getCellByPosition(0,i).Annotation.String
next i
End Sub
Sub SchreibeNotiz_ausInhaltvon_rechterZelle
rem W�hle erst einen 2-spaltigen Bereich aus !
rem Die erste Spalte enth�lt die Zelle(n), die die Notizen bekommen sollen,
rem In der Spalte rechts m�ssen die Zellinhalte stehen, die zu Notizen werden sollen.
rem Ist eine (rechte) Zelle leer, bekommt die linke Zelle eben keine Notiz.
myCellRange = thisComponent.currentController.Selection
myRangeAddress = myCellRange.getRangeAddress()
z1 = myRangeAddress.StartRow()
zn = myRangeAddress.EndRow()
n = zn - z1
for i=0 to n
myCellRange.getCellByPosition(0,i).Annotation.String = myCellRange.getCellByPosition(1,i).String
next i
End Sub
-- / \ gruss \ / ASCII Ribbon Campaign gisbert friege X Against HTML Mail / \
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
