Beispiel zu GetCellAddress()
Verfasst: Mo, 17.05.2004 10:40
Kann mir jemand ein konkretes Beispiel hierfü geben - finde leider nichts im Handbuch
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: Alles auswählen
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
Charly