PDA

Vollständige Version anzeigen : Wort in Zeile suchen und Zeile löschen


linesina
24.08.2017, 08:37
Hallo Zusammen,

ich habe gesucht und bin der Lösung ganz nahe glaube ich.

Ich habe eine Tabelle (Tabelle1) wo in Spalte A diverse Sachen stehen.
Unter anderem sind einige Zeilen, wo eine E-Mail Adresse angegeben wurde
Format : E-Mail: Muster@web.de als Hyperlink.

Nun möchte ich genau diese Zeilen einfach löschen.

Mein Code sind so aus ... leider tut sich jedoch nichts.

Sub Löschen()

Dim i As Integer
Dim intLR As Integer

intLR = Sheets("Tabelle1").Range("D65536").End(xlUp).Row

With Sheets("Tabelle1")
For i = 1 To intLR

If InStr(1, .Cells(i, 1).Value, "E-Mail:") Then
.Cells(i, 1).EntireRow.Delete
i = i - 1
Else

End If

Next i
End With

End Sub



Danke im Voraus!

Bayernsandy
24.08.2017, 11:55
Versuch's mal so:


Sub Löschen()

Dim i As Integer
Dim intLR As Integer

Sheets("Tabelle1").Cells.SpecialCells(xlCellTypeLastCell).Select
intLR = Selection.Row

With Sheets("Tabelle1")
For i = 1 To intLR

If InStr(1, .Cells(i, 1).Value, "Hans") Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp

i = i - 1
Else

End If

Next i
End With

End Sub




Gruß Thomas