Ich suche ein Makro welches mir in dem Blatt CAQ alle Zeilen löscht, die in Spalte A mit dem Wort old oder new beginnen.
Hinter old oder new kommt eine leerstelle und dann weiterer Text.
Hat da jemand eine Lösung ?
Gruß Heino
Sub Spalte_A_Text()
' die in A den Wert old oder new haben
Dim LoLetzte As Long
Dim LoI As Long
Dim RaZeile As Range
LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
If LoLetzte < 8 Then Exit Sub
For LoI = LoLetzte To 1 Step -1
If Left(Cells(LoI, 1), 3) = "old" Or Left(Cells(LoI, 1), 3) = "new" Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
Next LoI
RaZeile.Delete
Set RaZeile = Nothing
End Sub
Sub alteZeilenLöschen()
dim c as integer
c = 1 ' die Zeile wo die Suche beginnen soll
with activeworkbook.sheets("CAQ")
while .range("A" & c).value <> ""
if mid(.range("A" & c).value, 1, 3) = "old" then
.Rows(c).Delete Shift:=xlUp
end if
c = c + 1
wend
end with
End Sub