fertiger Code - kann man den "schneller" machen ?
28.11.2017 16:16:23
reiner
VIELEN DANK nochmal für eure Hilfe bei meinem Problem :
Wert in Spalte suchen und bestimmte Zellen löschen !
Mein Code hier ist folgender :
Private Sub CommandButton2_Click()
Dim e As Object
For Each e In Sheets("Tabelle1").Range("E3:E" & Sheets("Tabelle1").Cells(Rows.Count, 5).End( _
xlUp).Row)
'Debug.Print e.Value
If e.Value = "Falsch" Then
Range(Cells(e.Row, 5), Cells(e.Row, 15)).Delete
End If
Next e
End Sub
--- mein Problem ist jetzt:
Der Code arbeitet sich sehr langsam durch die Tabelle !
Gibt es eine Möglichkeit - diese "Suche" zu optimieren bzw schneller zu machen ?
Beste Grüße vorab
Reiner
Anzeige