Zeile Löschen wenn Wort gefunden wird
17.07.2018 08:11:06
Torsten
habe ein Problem das ich nicht lösen kann. Brauche das mit VBA Makro!!
Ich haben in Excel 4 Spalten.
Das Marko muss in Spalte D suchen ob das Wort "INFO" beeinhaltet ist.
Wenn dies der Fall ist muss die ganze Zeile gelöscht werden.
Es muss die ganze Spalte D durchsucht werden, da es mehrere Zeilen geben kann die das Wort Info beeinhalten können.
Soweit könnt ich das noch lösen. Das Problem ist nur das das Wort Info in der Zelle nicht alleine steht. Es steht immer INFO MAIER oder INFO KARL. Splitten der Spalte ist auch nicht möglich, da in den anderen Spalten wo nicht INFO drin steht ein Datum drin steht was nciht gesplitet werden soll.
Ich habe es nun so. Das Problem ist das er nach einer Zelle sucht wo nur INFO drin steht. Was ja nicht der Fall ist
Sub Löschen()
Dim i As Integer
Dim intLR As Integer
Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeLastCell).Select
intLR = Selection.Row
With Sheets("Tabelle 1")
For i = 1 To intLR
If InStr(1, .Cells(i, 4).Value, "Info") Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
i = i - 1
Else
End If
Next i
End With
End Sub