Tabelle durchsuchen und bestimmte Zeilen löschen

Computer: Software & Programmierung Office Software
1

Ich habe eine Excel-Tabelle (Excel2000) mit ca. 4.000 Einträgen.
Die Spalten A bis D sind gefüllt mit Text.
Manche Einträge in Spalte B sind in Schriftfarbe rot und mit gelben Hintergrund.
Ich möchte, daß ein Makro mir die Tabelle durchsucht bis zur letzten Zeile.
Dabei sollen alle Zeile die nicht in Schriftfarbe rot und gelben Hintergrund (Spalte B und C) sind, gelöscht werden.
Die verbleibenden Einträge sollen dann in Fettdruck geändert werden.
Vielen Dank!!!

2

Die Spalten A bis D sind gefüllt mit Text.
Manche Einträge in Spalte B sind in Schriftfarbe rot und mit
gelben Hintergrund.
Dabei sollen alle Zeile die nicht in Schriftfarbe rot und
gelben Hintergrund (Spalte B und C) sind, gelöscht werden.
Die verbleibenden Einträge sollen dann in Fettdruck geändert
werden.

Hallo Uwe,

wann soll gelöscht werden wenn B UND C bunt sind, oder schon wenn B ODER C bunt sind?

Gruß
Reinhard

3

Es soll gelöscht werden, wenn der Eintrag in Spalte B nicht einen gelben Hintergrund hat.
Danke!!!

4

Es soll gelöscht werden, wenn der Eintrag in Spalte B nicht
einen gelben Hintergrund hat.

Hallo Uwe,

in Modul1:

Option Explicit

Sub Loesch()
Dim Zei As Long
Application.ScreenUpdating = False
For Zei = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
 If Not Cells(Zei, 2).Interior.ColorIndex = 6 Then
 Rows(Zei).Delete
 End If
Next Zei
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard

5

Hat perfekt funktioniert.
Vielen Dank!!!
Uwe