bestimmt Zellen markieren
05.06.2002 09:51:09
Jan
Sub suchen()
Dim Rng As Range
For Each Rng In Range("start", "ende").Cells
If Rng.Interior.ColorIndex <> xlNone Then
Rng.Select
End If
Next Rng
End Sub
Nur bleiben hier die Zellen, die er gefunden hat, nicht markiert!
Kann mir da jemand helfen?
Danke
Anzeige