Schnelles kopieren
24.07.2007 20:42:17
Silk
also ich habe folgendes Problem:
Ich habe eine mittlerweile sehr grosses Tabellenblatt mit ca. 150 Zeilen und 200 Spalten. Nun wollte auf einem neuen Blatt eine Vergleichsmöglichkeit für den User schaffen, d.h.ich habe 2 ComboBoxen auf das Blatt gelegt, damit der User aus den 150 Artikeln jeweils einen zum Vergleich auswählen kann. Diese sollen dann von aus dem ursprünglichen Blatt auf die Vergleichsseite kopiert werden. Mein Problem ist, das die VBA Routine extrem (!) langsam ist (und das liegt nicht an der Rechner-Performance).
Meine Routine sieht so aus:
Set wsSource = ActiveWorkbook.Worksheets("Artikel")
Worksheets.Application.ScreenUpdating = False
For i = 2 To wsSource.Cells(3, Columns.Count).End(xlToLeft).Column
Cells(i + 3, 4) = wsSource.Cells(3, i)
Next
Worksheets.Application.ScreenUpdating = True
Die Schleife läuft ca 1 Minute, was natürlich für den Benutzer nicht akzeptabel ist. Wie man sieht sollen die Informationen aus den Spalten nun in den Zeilen (also untereinander) landen.
Ich habe zum Test auch schon mal folgendes probiert:
wsSource.Range(wsSource.Cells(3, 2), wsSource.Cells(3, 12)).Copy (Range(Cells(5, 4), Cells(15, _
4)))
Erstmal mit einem kleineren Bereich, aber das scheint so nicht zu funktionieren.
Weiss jemand von euch, wie man das Ganze beschleunigen kann?
Vielen Dank
Gruß
Karsten