erste freie Zeile in Tabelle zeigen
Gerd
folgender code soll die erste freie Zeile im aktiven sheet am Monitor anzeigen, sodass ich nicht laufend ganz nach unten scrollen muss.
++++++++++++++++++++++++++
Private Sub workbook_open()
Dim ws As Worksheet
Application.ScreenUpdating = False
With ws
Sheets("Tabelle").Select
End With
Dim erstefreieZelle
erstefreieZelle = ActiveSheet.Range("A65536").End(xlUp).Row
ActiveSheet.Cells(erstefreieZelle, 1).Offset(1, 0).Select
Application.ScreenUpdating = True
End Sub
++++++++++++++++++++++++++
Folgendes passiert beim öffnen der Datei:
Wenn z.B. 2000 Zeilen in der Tabelleausgefüllt sind und beim letzten schließen der Datei war ich in Zeile 500, ist beim erneuten Öffnen die Zelle der ersten Spalte in der ersten freien Zeile zwar markiert aber am Monitor wird immer noch der Bereich um die Zeile 500 angezeigt.
Kann jemand helfen?
Im voraus vielen Dank!
