OpenOffice.info

Vielen Dank mal wieder - prima!
Ganz einfach wenn man weiss wie es geht.
Ich brauche glaube ich mal ein anderes Buch. Ich habe das von Thomas Krumbein. Da fehlen einfach ein paar Dinge.
Grüße
Pit

	oDoc = thisComponent
	oTargetSheet = oDoc.Sheets.getByName("Sheetx")
	oCell = oTargetSheet.getCellByPosition(0,0)
	oDoc.CurrentController.Select(oCell)

Servus

[quote="Karolus"]Du benutzt in den drei angemeckerten Zeilen insgesamt 4 subs/Functions die du offenbar beim zusammenklauben vergessen hast[/quote]
Zumindext GetLastUsedColumn und GetLastUsedRow sind Bestanteil der mitgelieferten "Tools"-Bibliothek (OpenOffice.org Makros & Dialoge -> Tools -> Misc), beziehungsweise sind es in OOo 3.2.1. Ob sich in den darauffolgenden Versionen etwas daran geändert hat, weiss ich allerdings nicht. Wenn nicht, dann fehlt auf jeden Fall nur noch die Prozedur "SortCalcTable".

[quote="erikafuchs"]Wenn mir da jemand einen Tipp geben könnte, wie ich den Cursor dazu bekomme, in Zelle A1 von Sheetx zu springen ginge es ja auch.[/quote]
Ganz einfach:
[code] oDoc = thisComponent
oTargetSheet = oDoc.Sheets.getByName("Sheetx")
oCell = oTargetSheet.getCellByPosition(0,0)
oDoc.CurrentController.Select(oCell)[/code]

Oh Mann, da hast du mich mal wieder erwischt - und ich habe mich blamiert. Wäre ja auch zu schön gewesen. Rein theoretisch könnte es ja die Funktionen schon "ab Werk" geben.
Nun gut, muss ich mich selbst an die Arbeit machen. Den Bereich bekomme ich hin, das Sortieren lasse ich dann wohl so wie es ist. Wenn mir da jemand einen Tipp geben könnte, wie ich den Cursor dazu bekomme, in Zelle A1 von Sheetx zu springen ginge es ja auch.
Viele Grüße
Pit

Hallo
Du benutzt in den drei angemeckerten Zeilen insgesamt 4 subs/Functions die du offenbar beim zusammenklauben vergessen hast... 8)

Karo

sub nachKlassenSortieren
	dim oRange as object
	inSheet=thisComponent.sheets.GetByName("LUSD_Import")
	oRange=inSheet.getCellRangeByPosition(0,0,GetLastUsedColumn(inSheet),GetLastUsedRow(inSheet)
	SortCalcTable(oRange , 4, True , True )
	SortCalcTable(oRange , 1, True , True )	
end Sub

Hallo zusammen,
ich habe Probleme beim Sortieren. Ich habe eine Sortierroutine per Makrorekorder erstellt und in mein Programm eingebaut - das funktioniert aber nur wenn ich vorher auf der entsprechenden Seite in die Zelle "A1" geklickt habe - das ist nicht wirklich elegant (und kann ich keinem Nutzer zumuten). Ich wollte das jetzt eleganter machen und habe hier ein bischen gesucht und untenstehenden Code zusammengebastelt:
[code]sub nachKlassenSortieren
dim oRange as object
inSheet=thisComponent.sheets.GetByName("LUSD_Import")
oRange=inSheet.getCellRangeByPosition(0,0,GetLastUsedColumn(inSheet),GetLastUsedRow(inSheet)
SortCalcTable(oRange , 4, True , True )
SortCalcTable(oRange , 1, True , True )
end Sub[/code]
Ihr seht wahrscheinlich sofort, dass das nicht funktioniert - aber warum? Sowohl in der dritten als auch in der vierten und fünften Zeile kommt die Meldung "Sub- und Function Procedur nicht definiert".
Was ist falsch?
Grüße
Pit