Hallo,
ich habe hier ein Makro, dass einfach auf dem aktuellen Worksheet Zeilen einfügen soll. DIe Anzahl wie viele Zeilen eingefügt werden sollen ist bekannt (20000).
In "Spalte A" stehen beliebige Buchstaben jeweils einer in einer Zelle. Sobald nach dem Buchstaben "A" der Buchstabe "B" kommt, sollen dazwischen die Zeilen eingefügt werden.
Das Problem: Das Makro ist sehr sehr langsam. Kann mir jmd helfen das Makro zu beschleunigen? (screenupdates aus habe ich versucht, war nicht wesentlich schneller).
Sub ZeilenEinfuegen()
'
Dim i As Integer
Dim j As Integer
For i = 1 To 500000
If Cells(i, 1) = "A" And Cells(i + 1, 1) = "B" Then
i = i + 1
For j = 1 To 20000
Rows(i).Insert Shift:=xlDown
Next j
i = 500000
End If
Next i
End Sub
|