UsedRange.Rows.Count

[Loonie]

Hallo,

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

Code: Alles auswählen

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

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

Danke und Gruß

Thomas

[turtle47]

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

[Loonie]

Hi Jürgen,

vielen vielen Dank. Es funktioniert.

Viele Grüße

Thomas