[gelöst] Makro CALC letzte Zeile in vorgegebenen Bereich

[craig]

Hallo,

im Anhang befindet sich eine Datei mit einem Makro, welches mir die
letzte befüllte Zelladresse in einem vorgebenen Bereich wiedergeben soll.

Dieses funktioniert nicht.
Es wird bei Ausführung immer das gesamte Blatt berücksichtigt,
anstelle des angegebenen Bereichs (A2:A10).

Code: Alles auswählen

Sub Main
Dim oDoc
Dim oCell
Dim oCursor
Dim aAddress

odoc =thiscomponent
'oSheet=oDoc.getCurrentController.ActiveSheet
oSheet=oDoc.getSheets.getByIndex(0)
  oCell = oSheet.getCellRangeByName("A2:A10")

  oCursor = oSheet.createCursorByRange(oCell)
  oCursor.gotoEndOfUsedArea(true)

  aAddress = oCursor.RangeAddress

msgbox "Spalte " & aAddress.EndColumn & CHR$(10) & "Zeile " & aAddress.EndRow

End Sub

LastRow in Spalte A.ods

(11.98 KiB) 229-mal heruntergeladen

Was ist erforderlich damit nur dieser Bereich berücksichtigt wird?

Gruß

Craig

[F3K Total]

Hi,
versuchs mal so:

Code: Alles auswählen

Sub Main
    odoc = thiscomponent
    oSheet = oDoc.Sheets(0)
    oCellRange = oSheet.getCellRangeByName("A2:A10")
    oEmptyCells = oCellRange.queryEmptyCells
    oFirstEmptyCell = oEmptyCells(0).getCellByPosition(0,0)
    sColumn = oFirstEmptyCell.Columns(0).Name
    aCelladdress = oFirstEmptyCell.Celladdress
    msgbox ("Ergebnis:" & CHR$(10) & "Spalte " & oFirstEmptyCell.Columns(0).Name & " (Nr. " &aCelladdress.Column + 1 &")" & CHR$(10) & "Zeile " & aCelladdress.Row + 1,64,"Erste leere Zelle")
End Sub

Gruß R

[craig]

Hallo R,

funktioniert perfekt!

Vielen Dank.

Gruß

Craig