Makro: in Tabelle bestimmte Zeile mit Suchbegriff löschen

16/11/2008 - 19:21 von Helga | Report spam
Hallo Newsgroup,

ich möchte mit einem Makro in einer Tabelle einen bestimmten Suchbegriff
finden und dann die komplette Zeile löschen.

Z.B.
Nummer - Name
1 - A
2 - B
3 - C
4 - B
5 - D

Das Makro sollte z.B. "B" finden und dann die ganze Zeile löschen.

Ich habe leider nur minimal Ahnung von Makros und kann nur aufzeichnen, aber
bei einer Aufzeichnung zeichne ich Fixdaten auf und meine "B" können in
unterschiedlichen Zeilen stehen.

Ich verwende Windows XP.

vielen Dank für eure Hilfe und noch einen schönen Abend
Helga
 

Lesen sie die antworten

#1 Claus Busch
16/11/2008 - 19:35 | Warnen spam
Hallo Helga,

Am Sun, 16 Nov 2008 10:21:00 -0800 schrieb Helga:

ich möchte mit einem Makro in einer Tabelle einen bestimmten Suchbegriff
finden und dann die komplette Zeile löschen.

Z.B.
Nummer - Name
1 - A
2 - B
3 - C
4 - B
5 - D

Das Makro sollte z.B. "B" finden und dann die ganze Zeile löschen.



probiers mal so:
Sub ZeilenLoeschen()

Dim LRow As Long
Dim i As Long

With ActiveSheet
LRow = .Range("B" & Rows.Count).End(xlUp).Row

For i = LRow To 2 Step -1
If .Cells(i, 2) = "B" Then
.Rows(i).Delete
End If
Next
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen