Seite 1 von 1
Funktion / Möglichkeit um Notizen aus Zellen zu exportieren?
Verfasst: Do, 12.08.2004 13:55
von 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
Verfasst: Do, 12.08.2004 17:40
von 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 ..
Verfasst: Do, 12.08.2004 20:40
von 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:
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
Verfasst: Fr, 13.08.2004 11:39
von hotte
Ja Super.
Danke. Genau das, was ich brauchte.
vielen lieben Dank....