Code Snippet "VBA Excel"

Von Blattanfang bis zu aktiver Zelle markieren

Sub MarkiereBisA1()
  Range("A1", ActiveCell).Select
End Sub