OpenOffice.info

[quote="Anonymous"]
Zelle A1 entspricht (0, 0) i.S. Zeile 0 Spalte 0[/quote]
Jou, ZELLE fängt mit 1/1 an, alles klar.
Danke!

sub Letzte_Zelle
Doc = StarDesktop.CurrentComponent
oSheet = Doc.Sheets(0)
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
letzte_Spalte = oCellCursor.getRangeAddress.EndColumn
msgbox "Zeile: " & letzte_Zeile & CHR(13) & "Spalte: " & letzte_Spalte ,, "Letzte nicht leere Zelle ..."
end sub

Hallo Stefan,
Du bist wunderbar!
Wo findest Du denn all die Wunderdinge?
[code]
sub Letzte_Zelle
Doc = StarDesktop.CurrentComponent
oSheet = Doc.Sheets(0)
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
letzte_Spalte = oCellCursor.getRangeAddress.EndColumn
msgbox "Zeile: " & letzte_Zeile & CHR(13) & "Spalte: " & letzte_Spalte ,, "Letzte nicht leere Zelle ..."
end sub
[/code]

Was ich festgestellt habe:
es wird jeweils die vorletzte Spalte+Zeile angegeben, Bsp:
letzte Zelle ist E4
das Sub gibt aus:
Zeile 3, Spalte 4
Funktion ZELLE findet:
Zeile 4, Spalte 5

wobei das kein Problem ist, wenn man's weiss

interessant wäre höchstens zu wissen, ob die Verschiebung von
GotoEndOfUsedArea(True)
bewirkt wird oder von
getRangeAddress.EndRow

Viele Grüsse und herzlichen Dank,
Lib

Wie kann ich die letzte Zelle einer Tabelle bestimmen, also die, die man mit Ctrl+End erreicht?
Danke und Gruss, Lib