Gruppe
Extern
Problem
Eine Excel-Tabelle aus dem Internet soll importiert und in diese Arbeitsmappe verschoben werden.
StandardModule: Modul1
Sub ImportMove()
Application.ScreenUpdating = False
Application.VBE.MainWindow.Visible = False
On Error GoTo ERRORHANDLER
Workbooks.Open "https://www.herber.de/bbs/texte/10filter.xls"
With ThisWorkbook
ActiveSheet.Move after:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = "Import"
End With
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub