wie kann ich erreichen, dass beim Aktivieren eines Tabellenblatts automatisch in die erste leere Zelle der Spalte A markiert wird.
Für Eure Hilfe besten Dank im Voraus
Liebe Grüße
Fritz
Private Sub Worksheet_Activate()
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub
Private Sub Worksheet_Activate()
Dim erstefreieZelle As Long
erstefreieZelle = Worksheets(1).Range("A6500").End(xlUp).Row
Application.Goto Cells(erstefreieZelle + 1, 1), True
End Sub
Die erste freie Zelle in Spalte A wird ausgewählt und das Fenster wird nach oben gescrollt, so dass diese Zelle ganz oben steht.
Private Sub Worksheet_Activate()
Dim erstefreieZelle As Long
erstefreieZelle = Worksheets(1).Range("A1").End(xlDown).Row
Application.Goto Cells(erstefreieZelle + 1, 1), True
End Sub
Werner
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen