OpenOffice.info

Verfasst: **Sa, 24.11.2007 22:24**

Hallo,

ich habe in meinem VBA-Makro folgende Zeile drin, die ich gern nach StarBasic portieren würde:

For j = 1 To wsBlattSource.UsedRange.Rows.Count
...
Next j

Wie kann man UsedRange.Rows.Count unter StarBasic darstellen.

Danke und Gruß

Thomas

Verfasst: **Sa, 24.11.2007 23:09**

Hi Thomas,

versuche es mal hiermit:

Code: Alles auswählen

Sub letzte_Zeile
	oSheet = ThisComponent.CurrentController.getActiveSheet()
	oCellCursor = oSheet.createCursor()
	oCellCursor.GotoEndOfUsedArea(True)
	End_Row = oCellCursor.getRangeAddress.EndRow
	msgbox End_Row
End Sub

Hilft das weiter?

Jürgen

Verfasst: **So, 25.11.2007 21:32**

Hi Jürgen,

vielen vielen Dank. Es funktioniert.

Viele Grüße

Thomas

OpenOffice.info

UsedRange.Rows.Count

UsedRange.Rows.Count

Re: UsedRange.Rows.Count

Re: UsedRange.Rows.Count