Fehlermeldung, dass zuwenig Ressourcen
11.08.2015 21:02:40
Annette
ich kopiere das erste und einzige Tabellenblatt von einer Datei mit folgendem Makro:
Sub Blatt_Import()
Dim wks, quelle As Worksheet
Dim vFile As Variant
Application.ScreenUpdating = False
Set wks = ActiveWorkbook.ActiveSheet
vFile = Application.GetOpenFilename("Excel-Files (*.xls), *.xls")
If vFile = False Then Exit Sub
Set quelle = Workbooks.Open(Filename:=vFile).Worksheets(1)
quelle.Cells.Copy Destination:=wks.Cells
quelle.Parent.Close
Set quelle = Nothing
Set wks = Nothing
Application.ScreenUpdating = True
End Sub
Leider bringt Excel immer die Fehlermeldung, dass zuwenig Ressourcen bereit stehen. Zudem gibt es eine Datenschutzwarnung.
Kopiert wird das Blatt dennoch.
Wie kann ich diese Meldungen verhindern?
Vielen Dank vorab
Liebe Grüße
Annette