VBA-Beispiel 015b
mail schreiben
mail schreiben

suchen xlUp
durchsucht Spalte B nach "bla". Wenn gefunden dann überprüfen ob der Wert in Spalte C zwischen 25 und 100 liegt. Wenn ja, Zeile grün markieren.
Sub suchen_xlUp()

Dim i As Long
Dim z As Integer
Dim Zeile As Integer
z = 0
Zeile = 1

For i = [b65536].End(xlUp).Row To Zeile Step -1

If Cells(i, 2) = "bla" And Cells(i, 3) <= 100 And Cells(i, 3) >= 25 Then
    Rows(i).Interior.ColorIndex = 35
   'Hochkomma weg wenn Zeile gelöscht werden soll
   'Rows(i).Delete
    z = z + 1
End If

Next i

    MsgBox z & " Treffer"

End Sub
Download:   vba015b.zip
relevante Links:

top