OpenOffice.info

vielen dank ihr beiden,

also muss ich entweder als Bereich("$Tabelle1.$B$11:B$$15") angeben [b]oder [/b]Zelle "A1" markiert haben ?
Und bei "A2" würde sich ohne "$" der Bereich auf "B12:B16" verschieben ?

lg andreas

Hallo Stephan,

danke für die ausführliche und professionelle Antwort.

Jürgen

Sub Name_Zellbereich
Dim aRefPos As New com.sun.star.table.CellAddress 
   aRefPos.Sheet = 0 
   aRefPos.Column = 5
   aRefPos.Row = 3
   oRanges = ThisComponent.NamedRanges
   oRanges.AddNewByName( "NeuerZellbereich23", "Tabelle1.B11:B15", aRefPos, 0 ) 
End Sub

[quote]und der Rest ?[/quote]

http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/XNamedRanges.html#addNewByName

[quote]Ich habe nur keinen Unterschied festgestellt ob mit oder ohne:[/quote]

Dann markiere verschiedene Zellen bevor Du den Dialog Einfügen-Namen festlegst. Der Zellbereich B11:B15 für den benannte Bereich gilt nämlich bei:

[code]Sub Name_Zellbereich
Dim aRefPos As New com.sun.star.table.CellAddress
aRefPos.Sheet = 0
aRefPos.Column = 5
aRefPos.Row = 3
oRanges = ThisComponent.NamedRanges
oRanges.AddNewByName( "NeuerZellbereich23", "Tabelle1.B11:B15", aRefPos, 0 )
End Sub[/code]

nur dann wenn die Zelle entsprechenden Offsets markiert ist, hier also F4. Bei allen anderen Zellen ergibt sich ein anderer sichtbarer Eintrag da ja der grundlegende Eintrag relativ ist, also Tabelle1.B11:B15 und nicht etwa, wie es bei manueller Einfügung eines bereiches üblich wäre, $Tabelle1.$B$11:$B$15.
Die Angaben für den Spalten- und Zeilenoffet legen also lediglich die Refrenzadresse fest, es gilt also (hier im Beispiel) das die Verwendung von NeuerZellbereich23 in einer Formel nur dann Tabelle1.B11:B15 referenziert wenn die Formel in Zelle F4 steht, ansonsten verschiebt sich der Bereich entsprechend der Änderung des Bezugs.



Gruß
Stephan

Sub Name_Zellbereich
Dim aRefPos As New com.sun.star.table.CellAddress 
	aRefPos.Sheet = 0 
	aRefPos.Column = 0
	aRefPos.Row = 0
	oRanges = ThisComponent.NamedRanges
	oRanges.AddNewByName( "NeuerZellbereich21", "Tabelle1.B11:B15", aRefPos, 0 ) 
End Sub

	aRefPos.Column = 0 ' oder 5 oder ? ..........
	aRefPos.Row = 0 ' oder 3 oder ? ..........

Hi Andreas,

[quote="keksi1970"]
und der Rest ?
aRefPos = ?
0 = ?[/quote]
wenn Du so fragst kannst Du mir sicher auch erklären wofür der Rest gut ist.

Hier in diesem [url=http://codesnippets.services.openoffice.org/Calc/Calc.Erase_create_range_name.snip]Code[/url] wird z.B. der Rest auch nicht angegeben.
[quote]' we set our named range name:
Dim oCellAddress As new com.sun.star.table.CellAddress
oCellAddress.Sheet = 0 ' The first sheet
oRanges.addNewByName(sName$,xcl$,oCellAddress,0)[/quote]

Man kann es natürlich auch so machen:
[code]Sub Name_Zellbereich
Dim aRefPos As New com.sun.star.table.CellAddress
aRefPos.Sheet = 0
aRefPos.Column = 0
aRefPos.Row = 0
oRanges = ThisComponent.NamedRanges
oRanges.AddNewByName( "NeuerZellbereich21", "Tabelle1.B11:B15", aRefPos, 0 )
End Sub[/code]

Ich habe nur keinen Unterschied festgestellt ob mit oder ohne:
[code] aRefPos.Column = 0 ' oder 5 oder ? ..........
aRefPos.Row = 0 ' oder 3 oder ? ..........[/code]

Viele Grüsse.

Jürgen

Danke Jürgen,

ich füge also den bereits benannten Bereichen ( oRanges = ThisComponent.NamedRanges)
einfach welche hinzu (oRanges.AddNewByName)

"NeuerZellbereich21" = Name des Zellbereiches
"Tabelle1.B11:B15" = der Bereich

und der Rest ?
aRefPos = ?
0 = ?


lg
Andreas

Sub Name_Zellbereich
Dim aRefPos As New com.sun.star.table.CellAddress 
	aRefPos.Sheet = 0 
	oRanges = ThisComponent.NamedRanges
	oRanges.AddNewByName( "NeuerZellbereich21", "Tabelle1.B11:B15", aRefPos, 0 ) 
End Sub

Hallo Andreas,

[code]Sub Name_Zellbereich
Dim aRefPos As New com.sun.star.table.CellAddress
aRefPos.Sheet = 0
oRanges = ThisComponent.NamedRanges
oRanges.AddNewByName( "NeuerZellbereich21", "Tabelle1.B11:B15", aRefPos, 0 )
End Sub[/code]
sollte funktionieren.

Viel Erfolg.

Jürgen

Hi,

ich möchte per Makro einem oder mehreren Bereichen oder Einzelzellen in einem Sheet Namen geben, auf die ich mit "getcellrangebyname" zugreifen kann

geht das überhaupt ?

lg

Andreas