Zellen mit Namen versehen

[chris68a]

Hallo
gibt es die Möglichkeit Calc-Zellen mit Hilfe von Star Basic einfach mit einem Namen zu versehen.
Mit Hilfe der unten aufgeführten Funktion geht das zwar, aber ich finde es recht umständlich.

Code: Alles auswählen

Dim aRefPos As New com.sun.star.table.CellAddress
   aRefPos.Sheet = 0
   oRanges = ThisComponent.NamedRanges
   oRanges.AddNewByName( " & datenA(2,WI+start) & ", "Gestellplaner.B11", aRefPos, 0 )

Normalerweise kann man die Eigenschaften von Zellen ja recht einfach verändern

Code: Alles auswählen

	Cell.backcolor = 16777113
	Cell.NumberFormat = 157

Hat jemand ein Idee?
Chris