kleine Schleife optimieren
26.10.2012 16:32:59
Justin
Dim Filter As Date
Cells(2, "K") = TextBox1.Value
Columns("H:H").Select
On Error GoTo Fehler1
Filter = Me.Cells(2, "K")
neu:
For Each sel In Selection
If sel.Value "" Then
sel.EntireRow.Delete
GoTo neu
Else
End If
Next
Exit Sub
Fehler1: MsgBox ("Error! Please Enter Date")
End Sub
Das ist ein kleiner Auszug aus meinem Code... kann mir jmd beim optimieren helfen..
der braucht nämlich so lange das ich die Zeilen mitzählen kann.. :-) obwohl er Anfangs sehr schnell lief ...