OpenOffice.info

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

vielen lieben Dank....

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

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

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]sheet = doc.Sheets().getByName("Tabelle1")[/code]

auf den richtigen Namen angepaßt werden.

[code]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[/code]


Gruß
Stephan

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 ..

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