OpenOffice.info

Verfasst: **Sa, 04.08.2007 16:24**

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: Alles auswählen

Selection.SpecialCells(xlCellTypeBlanks).Select

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

Verfasst: **Sa, 04.08.2007 18:44**

Hi TB,

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

Code: Alles auswählen

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

Viel Erfolg.

Jürgen

OpenOffice.info

Excel Makro (Bearbeiten/Gehe zu...)

Excel Makro (Bearbeiten/Gehe zu...)

Re: Excel Makro (Bearbeiten/Gehe zu...)