ich habe hier eine Funktion, die sehr lange bei der Ausführung dauert.
Kann man sie auch beschleunigen?
Tabelle1.Select
Tabelle1.Range(Tabelle1.Cells(i, 2), Tabelle1.Cells(i, 11)).Delete (2)
i = i - 1
End If
Viele Grüße
Basti
' Löschen in Tabelle1
ActiveSheet.Unprotect (Password)
For j = 2 To 9999
If Len(Sheets("Tabelle2").Cells(j, 2))
gruß