Zeile löschen, wenn Teiltext in Spalte
18.10.2006 10:41:24
snoopyine
habe folgendes kleines Programm geschrieben
Sub Costreporting1()
Dim i As Byte
i=19
i = i + 1
If InStr(13, Cells(i, 2), "X") <> 0 Then
ActiveSheet.Rows(i, 2).Delete
End If
End Sub
Möchte das alle Zeilen gelöscht werden, wenn in der Spalte B an deer 13.Stelle ein X steht. Er löscht mir die Zeilen aber nicht.
Für Hilfe wäre ich dankbar
Anzeige