Insert unter 2010 sehr langsam
27.11.2012 14:14:14
Tobias
Ich habe folgenden Code:
For x = 12 To 18
If TAB1.Cells(x, y) "" Then
z = TAB1.Cells(x, y).Value
Worksheets(Worksheets.Count).Columns(4).Insert
TAB2.Columns(z).Copy Destination:=Worksheets(Worksheets.Count).Columns(4)
boli = 1
intcount = boli + intcount
End If
Next x
In den Zellen in Tab1 stehen Spaltennummern. Diese suche ich und kopiere die entsprechenden Spalten aus Tab2 in ein neues Tabellenblatt. Hierbei füge ich für jede zu kopierenden Spalte ein neue Spalte in das neue Tabellenblatt ein. Unter 2007 läuft das Marko für 100 neue Sheets in ca. einer Minute durch. 2010 braucht über 4 _ STUNDEN!!! Erst wenn ich die Zeile
Worksheets(Worksheets.Count).Columns(4).Insert
auskommentiere komme ich auf die gleiche Geschwindigkeit.
Ich habe mich natürlich schon schlau gemacht. Folgende Ansätze brachten keine besserung:
Application.Calculation = xlcalculatemanuel
.entirecolumn
Drucker auf Document Writer gestellt
ActiveSheet.DisplayPageBreaks = False
Ich bin ratlos. Vielleicht hat ja noch jemand eine Idee.
Viele Grüße
Tobi