Zeile nicht Löschen wenn 2 Textblöcke in der Zelle
28.07.2018 10:05:19
Albin
Komme leider nicht weiter. Habe auch im Netz Nichts gefunden.
Suche immernoch ein Makro, das Zeilen stehen lässt, wenn drei bestimmte Text / Zahlenblöcke in einer Zelle vorhanden sind.
Die Liste hat ca. 250'000 Zeilen und in der Spalte D ist ein sehr langer Text vorhanden. Nun so das Makro alle Zeilen löschen, die zum Beispiel nicht die Textblöcke System01 232323 Output drin haben. Also diese Zeile sollte mit dem Text in D nicht gelöscht werden: Blabla Oberdorf System01 blablab bla 232323 blabla Output blablab
Mit dem jetzigen Makro kann ich nur auf einen Textblock filtern.
Ich danke Euch im Voraus.
LG
Albin
Sub testee()
Dim i As Long
Dim letzteZeile As Long
letzteZeile = Range("d65536").End(xlUp).Row
For i = letzteZeile To 1 Step -1
If Not Cells(i, 5).Value Like "* Kreis: 1125*" Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End Sub
Anzeige