Sub
sdsdd()
Dim
rng
As
Range, ExcWb2, ExcWs2
Set
ExcWb2 = Workbooks.Open(
"F:\excel\Mittelwerte.xlsx"
)
Set
ExcWs2 = ExcWb2.Worksheets(1)
ExcWb2.Activate
Application.ActiveWindow.WindowState = xlMaximized
With
ExcWs2
.Activate
.Cells(ExcWs2.Cells(Rows.Count, 1).
End
(xlUp).Row, 1).
Select
Set
rng = Selection
Do
DoEvents
Loop
Until
Selection.Address <> rng.Address
End
With
ExcWb2.Saved =
True
ExcWb2.Close
False
Set
ExcWs2 =
Nothing
Set
ExcWb2 =
Nothing
End
Sub