OpenOffice.info

Sub Zellwerte

dim myDoc as object
dim Addresse as object
dim AktiveZelle as object 
dim Ausgabe as String


myDoc = ThisComponent
AktiveZelle = myDoc.getCurrentselection()
Addresse = AktiveZelle.getCellAddress()
Ausgabe = "aktive Zelle: " + chr(13)
Ausgabe = Ausgabe + "Tabelle: " + Addresse.Sheet + chr(13)
Ausgabe = Ausgabe +  "Spalte: " + Addresse.Column + chr(13)
Ausgabe = Ausgabe + "Zeile: " + Addresse.Row
msgbox Ausgabe

End Sub

Hallo!

Mit der Methode GetCellAddress() kann man auch den Index des Arbeitsblattes ermitteln.
Hier noch mein Beispiel für die Addressermittlung.
Der Code frägt die Werte der Zelle ab und gibt sie in einer Meldungsbox aus.

[code]Sub Zellwerte

dim myDoc as object
dim Addresse as object
dim AktiveZelle as object
dim Ausgabe as String


myDoc = ThisComponent
AktiveZelle = myDoc.getCurrentselection()
Addresse = AktiveZelle.getCellAddress()
Ausgabe = "aktive Zelle: " + chr(13)
Ausgabe = Ausgabe + "Tabelle: " + Addresse.Sheet + chr(13)
Ausgabe = Ausgabe + "Spalte: " + Addresse.Column + chr(13)
Ausgabe = Ausgabe + "Zeile: " + Addresse.Row
msgbox Ausgabe

End Sub
[/code]

Gruß
Charly

Kann mir jemand ein konkretes Beispiel hierfü geben - finde leider nichts im Handbuch