sCalc - letzte Zelle bestimmen
Verfasst: Di, 08.06.2004 09:01
Wie kann ich die letzte Zelle einer Tabelle bestimmen, also die, die man mit Ctrl+End erreicht?
Danke und Gruss, Lib
Danke und Gruss, Lib
Du bist wunderbar!
Wo findest Du denn all die Wunderdinge?
Code: Alles auswählen
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
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