[gelöst] eigene Funktion und Formelziehen

[clag]

Hallo Kenner und Könner,

in Anlehnung an eine CalcForum Thema 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: Alles auswählen

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

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

[Karolus]

Hallo

Code: Alles auswählen

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

als Laufvariable zum Ziehen eignet sich ZEILE()

Karolus

[clag]

Hallo Karolus,

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

So kann man es dem fragenden Herrn ja mal anbieten.

von mir gibt es schonmal ein Danke