Makro ändern
07.07.2005 15:05:12
dmoser
Sub wech()
ende = Cells(Rows.Count, 9).End(xlUp).Row
For i = ende To 2 Step -1
If Cells(i, 9) = "Telefax" Then
Rows(i).Delete
End If
Next i
End Sub