OpenOffice.info

Hallo Karolus,

gut das du meine Befürchtung nicht ausgeschrieben hast :wink:
ja sieh jetzt irgendwie besser aus.

So kann man es dem fragenden Herrn ja mal anbieten.

von mir gibt es schonmal ein Danke

FUNCTION TBLATTNAME(a as integer)
sheetnames = thisComponent.Sheets.Elementnames
if a < 1  or a > ubound(sheetnames)+1 then
TBLATTNAME = "Fehler"
exit FUNCTION
end if
TBLATTNAME = sheetnames( a-1 )
end FUNCTION

Hallo

[code]FUNCTION TBLATTNAME(a as integer)
sheetnames = thisComponent.Sheets.Elementnames
if a < 1 or a > ubound(sheetnames)+1 then
TBLATTNAME = "Fehler"
exit FUNCTION
end if
TBLATTNAME = sheetnames( a-1 )
end FUNCTION
[/code]

als Laufvariable zum Ziehen eignet sich ZEILE() :D

Karolus

FUNCTION TBLATTNAME(a as integer)
sheetnames = thisComponent.Sheets.Elementnames
if a < 1 then
TBLATTNAME = "Fehler"
exit FUNCTION
end if
if a > 256 then
TBLATTNAME = "Fehler"
exit FUNCTION
end if
for each entry in sheetnames
	count = count + 1 
	if a = count then
	lname = entry
	end if
next
TBLATTNAME = lname
end FUNCTION

Hallo Kenner und Könner,

in Anlehnung an eine CalcForum [url=http://de.openoffice.info/viewtopic.php?f=2&t=62727#p237813][b]Thema[/b][/url] habe ich versucht eine Funktion zu erstellen, die den Namen des (n) Tabellenblattes ausgeben soll,
die tut es auch so weit, wenn als Parameter einen Bezug einsetzt kann man die Formel auch ziehen und der Bezug wird angepasst
Aber wenn ich stattdessen einen integer Wert als Parameter eintrage wird der beim ziehen nicht angepasst :(

Was muss man anstellen damit auch der als Wert übergebene Parameter dynamisch reagiert?

[code]
FUNCTION TBLATTNAME(a as integer)
sheetnames = thisComponent.Sheets.Elementnames
if a < 1 then
TBLATTNAME = "Fehler"
exit FUNCTION
end if
if a > 256 then
TBLATTNAME = "Fehler"
exit FUNCTION
end if
for each entry in sheetnames
count = count + 1
if a = count then
lname = entry
end if
next
TBLATTNAME = lname
end FUNCTION

[/code]

und was könnte man sonst noch verbessern ?
(ich will aber nicht als Antwort lesen "Alles") :lol: