ans ende einer Tabelle
13.10.2008 10:49:08
steffen
wie bekomme ich es hin, dass mir beim aktivieren einer Tabelle das Ende der Tabelle angeziegt wird.
Ich habe die Zeile 1 fixiert und muss jedes mal runtersrollen.
versucht habe ich es hiermit, jedoch ohne gewünschtem erfolg; der Cursor steht zwar ganz unten, ich sehe jedoch immer nur den oberen Teil der Tabelle.
Private Sub Worksheet_Activate()
Dim x As Integer
'Cursor ans Ende der Tabelle stellen
x = Cells(Rows.Count, 1).End(xlUp).Row
Cells(x, 1).Select
End Sub
und der Versuch führt auch nicht zum Erfolg:
Private Sub Worksheet_Activate()
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
End Sub
Gruß Steffen
Anzeige