ich suche nach einer Möglichkeit, in einer wachsenden Datei beim Start dieser Datei die aktuell letzte Zeile + 2 weitere Zeilen / Spalte A automatisch markieren zu lassen.
Über Hilfen würde ich mich sehr freuen.
Besten Dank im Voraus.
Gruß Jean
Private Sub Workbook_Open()
'Blattname anpassen
With Worksheets("Tabelle1")
.Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "A").Resize(3).Select
End With
End Sub
Gruß Werner
Private Sub Workbook_Open()
'Blattname anpassen
With Worksheets("Tabelle1")
.Activate
.Cells(Rows.Count, 1).End(xlUp).Resize(3).Select
End With
End Sub
Gruß
Private Sub Workbook_Open()
'Blattname anpassen
With Worksheets("Tabelle1")
.Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, "A").Resize(3).EntireRow.Select
End With
End Sub
Gruß Werner
Private Sub Workbook_Open()
Application.Goto Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(xlUp).EntireRow("1:3")
End Sub
Gruß Gerd