Nach Zellen suchen und dann ganze Reihe löschen
11.03.2008 13:08:00
Lars
Ich möchte nach einer farblich markierten (Gelb) Zelle (Bsp. B75) suchen und dann die komplette Zeile (75) löschen! Die gesamte Tabelle umfasst ca. 3000 Zeilen, wobei immer mal wieder eine gelb markiert ist.
Das Suchen funktioniert soweit, schwierigkeiten macht mir "nur" noch das löschen.
Hier das Makro zum finden der gelben Zellen:
Sub GelbeSuchen()
Dim Zelle As Range
Dim Bereich As Range
Dim ZaehleFarbe As Integer
Application.Volatile
For Each Zelle In Range("b1:b2889")
If Zelle.Interior.ColorIndex = 6 Then
ZaehleFarbe = ZaehleFarbe + 1
End If
Next Zelle
MsgBox "Es sind " & ZaehleFarbe & " Zellen gelb markiert"
End Sub
Kann mir da bitte jemand auf die Sprünge helfen?
Besten Dank!
Lars