Excel hängt sich auf
01.11.2016 21:11:01
Fred
Ich habe ein Tabellenblatt Basis mit einer formatierten Tabelle namens Basis
In diese Tabelle möchte ich den Inhalt mehrerer Tabellenblätter einer anderen Mappe einfügen,- zuvor wird der Inhalt meiner Tabelle Basis gelöscht.
Dies geschieht derzeit mit diesem Code:
Sub AktuelleDaten()
Worksheets("Basis").Range("A3:AV10000").EntireRow.Delete
Worksheets("Basis").Range("A2:I2").ClearContents
Dim wksZ As Worksheet, wksQ As Worksheet, wkbQ As Workbook
Const strWkbQ As String = "Aktuell.xls"
Application.ScreenUpdating = False
Set wksZ = ThisWorkbook.Sheets("Basis")
On Error Resume Next
Set wkbQ = Workbooks(strWkbQ)
On Error GoTo 0
If wkbQ Is Nothing Then
Set wkbQ = Workbooks.Open(ThisWorkbook.Path & "\" & strWkbQ)
End If
For Each wksQ In wkbQ.Worksheets
wksQ.Cells(1, 1).CurrentRegion.Offset(1).Resize(, 9).Copy _
wksZ.Cells(Rows.Count, 1).End(xlUp).Offset(0)
Next
wkbQ.Close False 'QuellWB ohne zu speichern schließen
End Sub
Das Problem:
Bei ca. 2200 DS Import, dauert der Vorgang ca. 35 Sekunden
Importiere ich ca. 7000 DS, schmiert Excel ab
Andersrum, wenn ich mit diesem Code nicht in eine Tabelle importiere, sondern einfach nur ins Tabellenblatt Basis, ist die Sache in 2-3 Sekunden erledigt.
Kann mir jemand sagen, woran dies an meinem Code liegt?
mfg
Fred