Funktion / Möglichkeit um Notizen aus Zellen zu exportieren?

[hotte]

Hai folks.

Ich habe in einer Tabelle der Übersicht halber zu zu Zellergebnissen immer Notizen reingeschrieben.
Ich hätte diese ganz gerne z.B. als Spalte daneben exportiert oder extrahiert.

Weiß jemand wie das wohl geht ?

Gruß,
Claus

[hotte]

Ja, das ist die Klein Ließchen Methode...

Irgendwo muß doch aber OO die Kommentare verstecken?
Kann man nicht irgendwie ein makro schrreiben, daß aus dem File die Dinger extrahiert?

ojeh, warte weiter auf geniale Ideen ..

[Stephan]

Folgendes Makro sollte die Notizen aller Zellen des Tabellenblattes namens "Tabelle1" in die entsprechenden Zellen eines neuangelegten TabellenBlattes "Notizen" schreiben. Der Name des Tabellenblattes muß in dieser Zeile:

Code: Alles auswählen

sheet = doc.Sheets().getByName("Tabelle1")

auf den richtigen Namen angepaßt werden.

Code: Alles auswählen

Sub Notizen_kopieren
doc = stardesktop.currentcomponent
sheet = doc.Sheets().getByName("Tabelle1")
Cursor = sheet.createCursor() 
Cursor.GotoEndOfUsedArea(True) 
letzte_Zeile = Cursor.getRangeAddress.EndRow
letzte_Spalte = Cursor.getRangeAddress.EndColumn
neu_tabelle = doc.createInstance("com.sun.star.sheet.Spreadsheet")
doc.Sheets.insertByName("Notizen", neu_tabelle)
sheet_notiz = doc.Sheets().getByName("Notizen")
For x = 0 to letzte_Spalte
For y = 0 to letzte_Zeile
sheet_notiz.getCellByPosition(x,y).String = sheet.getCellByPosition(x,y).Annotation.String 
Next y
Next x
End Sub

Gruß
Stephan

[hotte]

Ja Super.
Danke. Genau das, was ich brauchte.

vielen lieben Dank....