OpenOffice.info

sub Gehe_zu
	odoc=thiscomponent
	oSheet = ThisComponent.CurrentController.getActiveSheet()
	oCellCursor = oSheet.createCursor()
	oCellCursor.GotoEndOfUsedArea(True)
	letzte_Spalte = oCellCursor.getRangeAddress.EndColumn
	letzte_Zeile = oCellCursor.getRangeAddress.EndRow
	mycell =  osheet.getCellByPosition(letzte_Spalte,letzte_Zeile)
	odoc.CurrentController.Select(mycell)
end sub

Hi TB,

Das folgende Makro führt die gleiche Aktion aus wie in Excel "Gehe zu .." "letzte Zelle"

[code]sub Gehe_zu
odoc=thiscomponent
oSheet = ThisComponent.CurrentController.getActiveSheet()
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Spalte = oCellCursor.getRangeAddress.EndColumn
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
mycell = osheet.getCellByPosition(letzte_Spalte,letzte_Zeile)
odoc.CurrentController.Select(mycell)
end sub[/code]

Viel Erfolg.

Jürgen

Selection.SpecialCells(xlCellTypeBlanks).Select

Hallo

Ich habe in Ecvel einen Makro Aufgezeichnet met dem ich bei einer Liste zum letzten eintrag springen kann.
Ich benutze dazu die Funktion "Gehe zu ...".
Wenn ich das Makro in Calc ausführe steht er bei dieser Zeile an:

[code]Selection.SpecialCells(xlCellTypeBlanks).Select[/code]
Ich finde bei Calc auch kein "Gehe zu ..."
Gibt es eine andere Möglichkeit dies zu lealisieren?
oder ein Plug in?

freundliche Grüsse
tb