vielleicht kann mir jemand einen Tip geben, wie man bei folgendem Skript die For...next-Schleife umgehen kann (oder so umschreiben kann, dass es schneller läuft), da es sehr lange dauert bis die ganzen Blätter abgearbeitet sind!?
Das Skript löscht über mehrere Blätter, die Zeilen bei denen in einem bestimmten Bereich keine Einträge stehen:
Sub LeereZeilenLöschen()
HDB = "gesamt"
For i = Sheets(HDB).index + 1 To Sheets.Count
a = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
For zz = a To 7 Step -1
strName = ""
For Each e In Sheets(i).Range("F" & zz & ":IV" & zz)
strName = strName & e.Value
Next e
If strName = "" Then Sheets(i).Range("A" & zz).EntireRow.Delete
Next zz
Next i
End Sub
Wäre super, wenn mir jemand helfen könnte.
Gruß Julia