Wieder mal eine Bitte. Ich habe ein Sheet mit mehreren Spalten. Wenn die letzte Spalte nicht leer ist dann soll diese gelöscht werden. Nur ab einer bestimmten Zeilenanzahl wird das ganze ziemlich langsam. Gibt es eine Möglichkeit der Beschleunigung?
Mein Code:
n = Sheets("ERGEBNIS").Range("A1").CurrentRegion.Rows.Count
For i = 2 To n
If Range("J" & i).Value <> "" Then
Range("A" & i & ":J" & i).Delete
i = i - 1
End If
'If Cells(i, 10).Value <> "" Then
'Rows(i & ":" & i).Delete
'i = i - 1
'End If
Next
Die 2 If-Variante wäre die Lösung über Cells - geht aber leider auch nicht schneller.
Bin wieder mal über jede Hilfe dankbar.
LG
Thomas