VBA Performance
12.05.2021 16:32:01
Philip
ich habe ein Performance-Problem mit einem Code. Er tut zwar was er soll, aber es braucht ewig.
Der Code soll prüfen, ob in der ersten Spalte einer Zeile etwas drin steht. Wenn da etwas drin steht, soll er Formeln aus der zweiten Zeile (B4:Q4) kopieren und in die entsprechende Zeile einfügen. Dann soll er die nächste Zeile prüfen, bis in der ersten Spalte nichts mehr drin steht.
Bei ca. 2500 Zeilen rechnet Excel da ganz schön lange. Gibt es eine Möglichkeit das zu beschleunigen oder einen anderen Code, der schneller läuft?
Sub Sverweis_ausrollen()
Dim LoLetzte As Long
Dim LoI As Long
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
For LoI = 4 To LoLetzte
If .Cells(LoI, 1) "" Then
.Range("B4:Q4").Copy _
Destination:=ThisWorkbook.Worksheets("Tabelle1").Cells(LoI, 2)
End If
Next LoI
End With
End Sub