Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
ans ende einer Tabelle
13.10.2008 10:49:08
steffen
Hallo in die Runde,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ans ende einer Tabelle
13.10.2008 11:12:46
Andi
Hi,
sollte eigentlich funktionieren; kannst Du die Mappe hochladen?
Schönen Gruß,
Andi
Fehler gefunden
13.10.2008 12:05:00
steffen
Hallo Andi,
hab grad meinen Fehler gefunden.
Ich hatte noch
Application.ScreenUpdating = false davor
nun hab ich's richtig plaziert und es funzt.
Gruß Steffen
AW: ans ende einer Tabelle
13.10.2008 12:01:48
Beverly
Hi Steffen,

Application.Goto reference:=Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1), scroll:=True




Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige