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]
