OpenOffice.info

Hallo clag,

ich bitte hiermit in aller Form und mit tiefstem Respekt um Entschuldigung für mein brutales Vorgehen. :)

oh man, mikeleb

jetzt hast du aber mit 5 Zeile BasicCode mein gesamtes BasicSelbstvertrauen förmlich eliminiert.
Mit solchen schockierenden Mitteilungen wie dein alternative Code, musst du behutsamer an das Opfer herantreten.
Und ich hatte geglaubt ich hätte mir was tolles ausgedacht. :(

outsch ;)

Trotzdem besten Dank das du mir die Realität aufzeigst.

Function LUCI(xCol)
   oDoc = ThisComponent
   oSheet = oDoc.Sheets(0)
   ocol=osheet.columns(xCol-1)
   oleer=ocol.queryemptycells
   oleerletzte=oleer.getbyindex(oleer.getcount-1).getcellbyposition(0,0).celladdress.row
   LUCI=oleerletzte
End Function

Hallo clag,

hier mal ein Alternativ-Code:
[code]
Function LUCI(xCol)
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
ocol=osheet.columns(xCol-1)
oleer=ocol.queryemptycells
oleerletzte=oleer.getbyindex(oleer.getcount-1).getcellbyposition(0,0).celladdress.row
LUCI=oleerletzte
End Function
[/code]

Function LUCI(xCol)
iCol = xCol-1
	oDoc = ThisComponent
	oSheet = oDoc.Sheets(0)
	iCol = xCol-1
'	sTick = GetSystemTicks()
	aFunc = GetProcessServiceManager().createInstance("com.sun.star.sheet.FunctionAccess") 
	Xs = 1048576 : do : Xe = Xs : Xs = Xe/2
	NRange = oSheet.getCellRangeByPosition(iCol,Xs,iCol,Xe-1)
	Test1 = aFunc.callFunction("COUNTA", Array(NRange)) 
	if xs = 1 then Line = 1 
	if Test1 > 0 then : do
	if Xe-Xs < 4 then 
	for i=Xe to Xs step -1 
	Result = oSheet.getCellByPosition(iCol,i-1)
	if Result.Type <> 0 then Line = i : exit do 
	next : end if
	Xa = Xs : Xb = Xe : Xs = Xs + (Xe-Xs)/2
	NRange = oSheet.getCellRangeByPosition(iCol,Xs,iCol,Xe-1)
	Test2 = aFunc.callFunction("COUNTA", Array(NRange)) 
	if Test2 = 0 then Xb = Xs : Xs=xa : Xe=Xb : Test2 = 1
	loop until Test2 = 0 : end if : loop while isEmpty(Line)
	LUCI=Line
'	eTick = GetSystemTicks()
'	print line, "get in " & eTick-sTick 	
end Function

Function LUCI(xCol)
iCol = xCol-1
	oDoc = ThisComponent
	oSheet = oDoc.Sheets(0)
	iCol = xCol-1
'	sTick = GetSystemTicks()
	aFunc = GetProcessServiceManager().createInstance("com.sun.star.sheet.FunctionAccess") 
	Xs = 1048576 
	do 
	Xe = Xs 
	Xs = Xe/2
	NRange = oSheet.getCellRangeByPosition(iCol,Xs,iCol,Xe-1)
	Test1 = aFunc.callFunction("COUNTA", Array(NRange)) 
	if xs = 1 then Line = 1 
	if Test1 > 0 then 
		do
			if Xe-Xs < 4 then 
				for i=Xe to Xs step -1 
					Result = oSheet.getCellByPosition(iCol,i-1)
					if Result.Type <> 0 then 
						Line = i 
						exit do 
					end if
				next 
			end if
			Xa = Xs 
			Xb = Xe 
			Xs = Xs + (Xe-Xs)/2
			NRange = oSheet.getCellRangeByPosition(iCol,Xs,iCol,Xe-1)
			Test2 = aFunc.callFunction("COUNTA", Array(NRange)) 
			if Test2 = 0 then 
				Xb = Xs 
				Xs=xa 
				Xe=Xb 
				Test2 = 1
			end if
		loop until Test2 = 0 
	end if 
	loop while isEmpty(Line)
	LUCI=Line
'	eTick = GetSystemTicks()
'	print line, "get in " & eTick-sTick 	
end Function

Hallo Balu,

[quote="balu"]Wo willst Du deine eigene Funktion =LUCI() einsetzen?[/quote]
wenn möglich wie jede Funktion so flexible wie möglich also eben auch ziehen.

Ich selber hatte die Function mir für ein Makro erstellt.
Danach kam mir die Idee den Cosde auch in eine eine UDF zu packen und etwas universeller zu gestalten.
Die Parameter als SPALTE() und ZEILE() wären so schön einfach gewesen einschließlich Sprachumsetzung,
intern wäre es ja immer column und row.

[color=#0000FF]=LUCI(SPALTE())[/color]

[code]
Function LUCI(xCol)
iCol = xCol-1
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
iCol = xCol-1
' sTick = GetSystemTicks()
aFunc = GetProcessServiceManager().createInstance("com.sun.star.sheet.FunctionAccess")
Xs = 1048576 : do : Xe = Xs : Xs = Xe/2
NRange = oSheet.getCellRangeByPosition(iCol,Xs,iCol,Xe-1)
Test1 = aFunc.callFunction("COUNTA", Array(NRange))
if xs = 1 then Line = 1
if Test1 > 0 then : do
if Xe-Xs < 4 then
for i=Xe to Xs step -1
Result = oSheet.getCellByPosition(iCol,i-1)
if Result.Type <> 0 then Line = i : exit do
next : end if
Xa = Xs : Xb = Xe : Xs = Xs + (Xe-Xs)/2
NRange = oSheet.getCellRangeByPosition(iCol,Xs,iCol,Xe-1)
Test2 = aFunc.callFunction("COUNTA", Array(NRange))
if Test2 = 0 then Xb = Xs : Xs=xa : Xe=Xb : Test2 = 1
loop until Test2 = 0 : end if : loop while isEmpty(Line)
LUCI=Line
' eTick = GetSystemTicks()
' print line, "get in " & eTick-sTick
end Function
[/code]

tschuldigung ist wieder in der von dir wenig geliebten zusammengeschobenen Version und auch z.Z. nur für Spalten
aber für Zeilen braucht man ja nur ein paar Variablen zu ändern.

[color=#FF0000]edit:[/color]
hier der Code wieder auseinandergedröselt

[code]Function LUCI(xCol)
iCol = xCol-1
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
iCol = xCol-1
' sTick = GetSystemTicks()
aFunc = GetProcessServiceManager().createInstance("com.sun.star.sheet.FunctionAccess")
Xs = 1048576
do
Xe = Xs
Xs = Xe/2
NRange = oSheet.getCellRangeByPosition(iCol,Xs,iCol,Xe-1)
Test1 = aFunc.callFunction("COUNTA", Array(NRange))
if xs = 1 then Line = 1
if Test1 > 0 then
do
if Xe-Xs < 4 then
for i=Xe to Xs step -1
Result = oSheet.getCellByPosition(iCol,i-1)
if Result.Type <> 0 then
Line = i
exit do
end if
next
end if
Xa = Xs
Xb = Xe
Xs = Xs + (Xe-Xs)/2
NRange = oSheet.getCellRangeByPosition(iCol,Xs,iCol,Xe-1)
Test2 = aFunc.callFunction("COUNTA", Array(NRange))
if Test2 = 0 then
Xb = Xs
Xs=xa
Xe=Xb
Test2 = 1
end if
loop until Test2 = 0
end if
loop while isEmpty(Line)
LUCI=Line
' eTick = GetSystemTicks()
' print line, "get in " & eTick-sTick
end Function
[/code]

Hallo clag!

Nachdem sich die Gelehrten (Stephan und Karolus) zu Worte gemeldet haben, möchte ich als Anfänger mich auch noch kurz einklinken.

Als erstes würde mich mal interessieren wie dein Code aussieht um die letzte benutzte Zelle zu ermitteln, egal ob für Zeile oder Spalte.

Und dann noch etwas grundsätzliches.
Wo willst Du deine eigene Funktion =LUCI() einsetzen? In der gleichen Zeile/Spalte wo die letzte benutzte Zelle gesucht werden soll, oder wie stellst Du dir das vor?

Und ferner, warumm soll die Funktion "ziehbar" sein?



Gruß
balu

Hallo Karolus,

deine Idee hatte ich auch schon angedacht durch Zahl und Text kann man schon gut Zeile Spalte unterscheiden
muß mann eben über ASC den TEXT in Index wandeln, aber ist auch nicht ziehbar.

meine Funktion soll "LUCI()" ([b]L[/b]ast[b]U[/b]sed[b]C[/b]ell[b]I[/b]n) heißen und dann wäre
[color=#0000FF]=LUCI(SPALTE(E12))[/color] oder
[color=#0000FF]=LUCI(ZEILE(E12))[/color]

eine schöne eindeutige und immer gültige, ziehbare Adressierung gewesen, ohne irgend etwas anpassen/umrechnen zu müssen,
wenn es denn so funktioniert hätte das man aus dem einen Parameter zwei unterschiedliche Informationen entnehmen könnte.

hmmm ...

=LASTUSED("EX")

=LASTUSED(12)

Das würde ich mit [b]einer[/b] Funktion erledigen, deren Aufruf aus Calc so ausehen würde:

[code]=LASTUSED("EX")[/code]
oder
[code]=LASTUSED(12)[/code]

dann kann deine UDF selbst entscheiden ob die [i]letzte benutzte[/i] in der Zeile oder in der Spalte zurückgegeben wird.

Function MEINEFUNKTION(x As String)
zellobjekt = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName(x)
'.... mache was mit dem zellobjekt
End Function

verwende:

=MEINEFUNKTION("G21")

mit:

[code]Function MEINEFUNKTION(x As String)
zellobjekt = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName(x)
'.... mache was mit dem zellobjekt
End Function
[/code]

Das Ganze sieht in der Zelle dann nicht doof aus, hat nur den Nachteil das sich die Formel bei Ziehen/Kopieren eben nicht automatisch anpasst.

Gruß
Stephan

Hallo Karolus,

[quote="Karolus"]
Hast du tatsächlich diesen Thread gestartet nur um irgendwie bereits vorhandene Funktionen ( SPALTE, ZEILE ) neu zu erfinden.[/quote]
nein nen bischen deppert bin ich ja schon aber noch nicht völlig.

ich möchte mit einer Funktion die letzte benutze Zelle ermitteln entweder für Spalte oder Zeile,
darum muss die Funktion irgendwie wissen ob und in welcher Spalte / Zeile gesucht werden soll.

Ihr beide treibt gerade, "wie ein Wiesel das Kaninchen über den Acker" mich durch das Basicgebüsch. ;)

Hallo Stephan,

unser Beiträge haben sich gerade überschnitten.
[quote="Stephan"]... und bitte komme selbst darauf wie Du mit "G21" innerhalb Deiner benutzerdefinierten Funktion auf das Zellobjekt zugreifen kannst ;-)
[/quote]
und ich zeige auch schon mal vorrauseilendes erröten für meine Fragerei
deine Antwort lässt mich ja vermuten das ich mich gerade ziemlich daneben ziele,
aber es klingel irgenwie garnix bei mir, außer mein Tinitus?

gib mir doch bitte noch einen Tip.

Wie soll ich das jetzt verstehen?

Hast du tatsächlich diesen Thread gestartet nur um irgendwie bereits vorhandene Funktionen ( SPALTE, ZEILE ) neu zu erfinden.

Ha!

na denn bin ich ja wieder bei [color=#0000FF]=MEINEFUNKTION("Spalte"; Spalte(EX))[/color] :roll:

ich glaube es ist einfacher ich werde die Funktion in zwei separate Funktionen aufbrechen
eine nur für Zeile und eine für Spalte, dann brauche ich nur die Zahl.
Na nen Versuch wars trotzdem wert.

Also allerbesten Dank für die Unterstützung.

[quote]Ja man könnte den Wert gleich als Zahl eingeben z.B. =MEINEFUNKTION("Spalte"; 154)
aber wer weiß schon aus dem Kopf welche Spalte "EX" ist ?[/quote]

Was willst Du denn nun überhaupt ... ?

Wenn Du bereit bist Formeln so zu parametieren wie in "=MEINEFUNKTION("Spalte"; 154)", kannst Du genausogut auch "=MEINEFUNKTION("G21")" verwenden (was dann nicht doof aussieht), weil das Ziel meines Beispiels (deshalb auch mit "z.B." gekennzeichnet) doch nur das war einen Vorschlag zu machen bei dem sich beim 'Ziehen' oder Kopieren der Formel der Bezug automatisch anpasst.

Da in "=MEINEFUNKTION("Spalte"; 154)" die 154 beim Ziehen/Kopieren ohnehin statisch ist, ist stattdessen "=MEINEFUNKTION("G21")" dann die bessere Lösung.

... und bitte komme selbst darauf wie Du mit "G21" innerhalb Deiner benutzerdefinierten Funktion auf das Zellobjekt zugreifen kannst ;-)


Gruß
Stephan

Die Funktion [i]=SPALTE(EX1) [/i] weiss es...

Hallo Karolus,

ich hatte es schon befürchte, das dein Kommetar diesmal etwas bissiger ausfällt ;)

Aber wie sage ich es denn meinem Kinde in eleganterer Form, das der Wert als Index einer Spalt oder Zeile anzuwenden ist?
Ja man könnte den Wert gleich als Zahl eingeben z.B. [color=#0000FF]=MEINEFUNKTION("Spalte"; 154)[/color]
aber wer weiß schon aus dem Kopf welche Spalte "EX" ist ?