letzte Zelle mit Strg + Ende

[Siegbert Linder]

Hallo,

mit der Tastenkombination Strg + Ende gelangt man in die letzte (irgendwann
aktivierte) Zelle.

Oft steht dann soweit unten bzw. rechts gar nichts mehr.
Kann man dies nicht irgendwie zurücksetzen, so dass der Curser in der
tatsaechlich letzten Zelle springt?

Danke und viele Gruesse, Siegi

[Frank Arendt-Theilen]

Am Fri, 28 May 1999 16:42:50 +0200, schrieb "Siegbert Linder"
<Siegber...@awi.bmlf.gv.at> in microsoft.public.de.excel zu
"letzte Zelle mit Strg + Ende":

>Hallo,
>
>mit der Tastenkombination Strg + Ende gelangt man in die letzte (irgendwann
>aktivierte) Zelle.
>
>Oft steht dann soweit unten bzw. rechts gar nichts mehr.
>Kann man dies nicht irgendwie zurücksetzen, so dass der Curser in der
>tatsaechlich letzten Zelle springt?

Hallo Siegi,
wie folgt:

Function RealLastCell(TheSheet As Worksheet) As Range
' Returns a single-cell range object that represents
' the intersection of the last non-empty row and the
' last non-empty column

Dim ExcelLastCell As Range
Dim Row As Integer, Col As Integer
Dim LastRowWithData As Integer
Dim LastColWithData As Integer

Application.ScreenUpdating = False

' ExcelLastCell is what Excel thinks is the last cell
Set ExcelLastCell = TheSheet.Cells. _
SpecialCells(xlLastCell)

' Determine the last row with data in it
LastRowWithData = ExcelLastCell.Row
Row = ExcelLastCell.Row
Do While Application.CountA(TheSheet. _
Rows(Row)) = 0 And Row <> 1
Row = Row - 1
Loop
LastRowWithData = Row

' Determine the last column with data in it
LastColWithData = ExcelLastCell.Column
Col = ExcelLastCell.Column
Do While Application.CountA(TheSheet. _
Columns(Col)) = 0 And Col <> 1
Col = Col - 1
Loop
LastColWithData = Col

' Create the range object
Set RealLastCell = TheSheet.Cells(Row, Col)
End Function

Sub LetzteZelle()
MsgBox RealLastCell(Sheets("Tabelle1")).Address
End Sub

(Funktion von John Walkenbach)

MfG Frank
__________________________________________________________
E-Mail: Thei...@t-online.de

[Robert Gelbmann]

Hallo Siegbert!

Also vorausgesetzt, daß die Zellen über bzw. links von der "letzten Zelle"
leer sind (und auch keine Leerzeichen, etc. enthalten), sollte Strg + Ende
funktionieren.

Innerhalb einer Sitzung "merkt" sich Excel aber die "letzte Zelle". Erst
beim Speichern (!) wird dann die neue "letzte Zelle" wieder richtig
festgelegt.

lg aus Wien ans Bundesministerium für Land- und Forstwirtschaft, ;-)
-Robert Gelbmann-

---
<gel....@roehrenbacher.at>

---Siegbert Linder <Siegber...@awi.bmlf.gv.at> schrieb in im
Newsbeitrag: 7ima2j$se3$1...@fleetstreet.Austria.EU.net...

> Hallo,
>
> mit der Tastenkombination Strg + Ende gelangt man in die letzte
(irgendwann
> aktivierte) Zelle.
>
> Oft steht dann soweit unten bzw. rechts gar nichts mehr.
> Kann man dies nicht irgendwie zurücksetzen, so dass der Curser in der
> tatsaechlich letzten Zelle springt?
>
>