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