Hallo,
ich bin zu faul das alles im Detail zu verstehen. Aber es geht um das
Auslesen von Zellnotizen? Daf�r habe ich mal f�r das Forum ein Makro
geschrieben. Vielleicht ist es n�tzlich wenn ich mich selbst zitiere:
Folgendes Makro sollte alle Notizen des Tabellenblattes namens
"Tabelle1" in die entsprechenden Zellen eines neuangelegten
TabellenBlattes "Notizen" schreiben. Der Name des Tabellenblattes mu� in
dieser Zeile:
sheet = doc.Sheets().getByName("Tabelle1")
auf den richtigen Namen angepa�t werden.
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�
J�rg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
