Herbers Excel-Forum - das Archiv
Finden von letzter Zeile
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.
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
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.