Beispiel zu GetCellAddress()

[Wolfgang Lampert]

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

[Charly]

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

Gruß
Charly