Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Finden von letzter Zeile"
Doppelte Einträge finden und löschen Schaltflächen-Id-Nummer finden und Schaltfläche einfügen
Datensätze wechselseitig bei Nichtauffinden markieren Alle Zellen mit Formeln finden
Letzter Wert in Zeile Letzter Wert aus einem Bereich
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen Zeile mit letzter Fundstelle an letzte Position der Liste