Finden von letzter Zeile

Bild

Betrifft: Finden von letzter Zeile
von: Klaus
Geschrieben am: 23.11.2003 09:47:32

Beim öffnen eines Blattes möchte ich auf die letzte Zeile in der Daten stehen springen.

Bild


Betrifft: AW: Finden von letzter Zeile
von: andre
Geschrieben am: 23.11.2003 10:07:56

hallo klaus,
wenn du die spalte kennst, in der die letzte benutzte zeile steht mit:
cells(cells(rows.count,1).end(xlup).row,1).activate
die 11 steht für spalte a
gruss andre


Bild


Betrifft: AW: Finden von letzter Zeile
von: Nepumuk
Geschrieben am: 23.11.2003 10:18:48

Hallo Klaus,
Rechstklick auf das Excelicon neben Datei, Bearbeiten ...... Code anzeigen. Folgende Routine in das Editorfenster kopieren:

Option Explicit
Private Sub Workbook_Open()
    With ActiveWindow
        .ScrollColumn = 1
        If ActiveSheet.UsedRange.Rows.Count < 20 Then .ScrollRow = 1 Else .ScrollRow = ActiveSheet.UsedRange.Rows.Count - 15
    End With
    Cells(ActiveSheet.UsedRange.Rows.Count, 1).Select
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
P.S. Zitat von Hajo: Ein Hallo am Anfang und ein Gruß am Ende des Beitrags lassen diesen gleich viel freundlicher erscheinen.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Finden von letzter Zeile"