Zeilen löschen wenn, solange bis ...
22.02.2009 17:21:02
Steven
es wäre schön, heute noch ein letztes Mal Eure Hilfe in Anspruch nehmen zu dürfen.
Ich bin nur teilweise fündig geworden: nachfolgendes Makro löscht Zeilen, wenn der Wert "g" drin steht.
Was muss ich für folgendes ändern:
Ich suche ein Makro, das alle Zeilen löscht, in denen in Spalte A keine Zahl steht (ausgenommen die Überschrift), solange bis das Makro beim Nachuntengehen auf den Text "Text" in Spalte F trifft. Es wäre das Sahnehäubchen, wenn auch noch die Zeile vor der Zeile (mit dem Text "Text" in Spalte F) erhalten bliebe.
Sub DeleteIfG()
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
var = Application.Match("*g*", Rows(iRow), 0)
If Not IsError(var) Then
Rows(iRow).Delete
End If
Next iRow
End Sub
einen netten Gruss
Steven
https://www.herber.de/bbs/user/59660.xls