Löschmakro löscht alles statt Suchbegriff!
03.09.2013 13:02:38
Tom
ich habe folgendes Makro und bin irgenwie überrascht dass alle Zeilen gelöscht werden
und nicht nur die wenn in L irgenwo ein "X" gefunden wurde.
Kann mir mal einer Licht ans Fahrrad machen!
Sub DGSlöschen()
Application.ScreenUpdating = False
'DGS löschen
Dim i
For i = Cells(Rows.Count, 12).End(xlUp).Row To 1 Step -1
On Error Resume Next
If Cells(i, 12).Value = "X" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = False
End Sub
MfG und Vielen Dank
Tom H